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PREFÁCIO 

Os mi crucompu t ada res percorreraam um longo 
caminho desde a introdução do Altair 8800 nG mercado 
norte americanc em 1975. Os programas eram introduzi- 
dos na forma binária através de um painel frontal de 
chaves, tornanco a programação demorada e tratalhosa. 

Atualmente, existem vários e diferentes sis- 
temas de microcomputadores permitindo ao usuário o lu- 
xo de uma indecisão na escolha de um deles. Quase to- 
dos são constituídos por um teclado semelnante ao de 
uma máquina de escrever, algum dispositivo para repre- 
sentação gráfica e uma versão da linguagem BASIC resi- 
dente em ROM. 

No Brasil, várias linnas de micros já foram 
i ntr oduz i cas : TRS-80, Apple, Sinclair. IBM-PL e, mais 
recentemerte, MSX. Por ser recente em nosso mercado, a 
linha MSX não dispõe ainda de software em quantidade 
e qualidace suficientes para suprir as exigências dos 
usuários. Na tentativa de colahcrar para suprir essa 
deficiência em rel3çãc ao grande potencal dessas má- 
quinas. resolvemos escrever este I i v r i oc programas. 

Ele é composto por 9 programas que usam BASIC 
ou LINGUAGEM DE MAQUINA ou ambas. Mesmo quando o re- 
curso da Linguagem de Máquina é usado, a introdução do 
programa é feita em BASIC. 0 único programa em que a 
introdução é feita diretamente em códigos hexadecimais 
é u COELHO MALUCO. Para facilitar a digitação dos cc- 
digus e diminuir a ocorrência de erros, desenvolvemos 
um MONITOR específico para c COELHO MALUCO. O leitor 
não encontrará dificuldade alguma n3 introdução oe 
qual quer programa . 

Esperamos que com essa publicação, venhamos a 
incentivar os jovens brasileiros a desenvolver softwa- 
res cada vez melhores, aprimorando o nível dos progra- 
mas nacionais. 


OS AUTORES 


Dedi camos este I i vro 
aos nossos pais, 
pelo apoio e i ncent ivo 
que eles nos deram. 
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P AC— MAN 


Pac-Man é um famoso jogo de fliperama que já 
deve ser conhecido por você. Este programa, elaborado 
em Assemb I y . dá ao usuário do MSX a chance de também se 
divertir com o munstrinhc faminto e seus perseguidores 
f antasmagâr i cos. 

0 jogo é muito simples: voce deve fazer o 
monstrinho comer todas as bolachas da tela. evitando 
cs f antasmi nhas . Ao devorar a maçã no centro do labi- 
rinto. você terá a vantagem de também poder atacar se- 
us inimigos. Mas tome cuidado, pois o efeito da maçã 
dura apenas alguns segundos. 

Se você for pego por um fantasma, perderá uma 
dc suas vidas e. para dificultar um pouco u jugo, todas 
as bolachas devoradas retornam às suas posições origi- 
nais na tela. 

Quando tudas as suas vidas forem perdidas, 
o jogo termina, sendo que você deve teclar a barra de 
espaços para iniciar novamente o programa. 


DIGITAÇÃO 

A digitação desse programa é um tanto críti- 
ca nas linhas DATA, pois nelas estão introduzidos os 
códigos do programa em Assembly. Tome, então, o máximo 
de cu i dado ao d i g i tá-l as . 

Mas, casu seja cometido algum erro na digita- 
ção de uma dessas linhas, ao ser executado o programa, 
lhe scra dito onde foi cometido o erru, facilitando 
sua correção. Quanto ao resto, nada há de exepciona!.- 
são linhas de fácil compreensão. 

Creio que não seja necessário explicar mais 
nada sobre o Pac-man. 

Então, só nos resta desejar-lhe boa sorte na 
sua batalha contra os fantasminhas famintos. 

Figura i.i - Prograia PAU-hAN . 


$ 1 REM ***** ***** 

2 REM ** P ac -Man ** 

j 3. REM * Luiz Fernando D. Dias * 
# j A REM ** & Wilson F. Martins; ** 

$ j 5 REM ***** ***** 

; 10 C LÊ AR 1 024 y &HD000 z DEFINTA Z 
I 2<ò DEFUSR -&HD807 : A-&HD807 2 Q— 90 
*i 30 F0RL- : 10T0í í READXSjsS-O * 







40 F OR B = i T03 i S TE P 2 

50 K=VAL("SH"+MID*<X$,B,2) ) : POKEA , K : A-A + 
í :S=S+K*CB+i>/2 
60 NEXTB 

70 IF RIGHT9j<HEXT)(S) ,2>< > M I D$ ( Xt , 33 , 2 ) T 
HEN 1630 

90 Q-Q+l 0 : NEXT L 

90 DATA"FD2i0000FD3VCD7200010iE2CD4700CD 
79" 

100 DAT A"90003E4 1 2 i 002001 Ô0Í8CD56000Í07 1 
129" 

110 DATA"CD47003E063234E0AF6F r ó7222 1 E.0323 
SEó" 

120 DATA"E0FDF92i34E035205/2iA5DEiíeC02C 
D4B" 

130 DAT A"3EDD3Eí 92160220Í 4000CD56002A96E) 
EFE" 

140 D AT A" E DDE] 21C0E7D0ED5396DEC921 00 153E0 

R9E 


// 


150 DATA"í E00CD93003C1E0Í CD93003CÍ E0FI CD9 
j 353" 

160 DATA"002E7CB5CA90005DAFCD93003C5CCE>9 
0 S 399" 

,J 170 ü AT A" 0 0 3E C 71 E3ED D93003C1E0FCD93001.SC 
. | E5A" 

•j 180 DATA"3A3RF00F r E607 6F26002929Í í AEDE 197 
• EEi" 

ft 190 DATA"3230E0237E323 í E0237E322FE0237E3 
a 204" 

! 200 DATA"32E03E01322EE03233E01 1 0B0006ÍSC 
• | 520" 

$ j 210 DATA // 3ElE010800F5D52i60DECD5C00EiF- 1.0 
a ! IDE" 

Í 220 DATA"080009FB3D20EE2i í 000Í9E3CÍ 10E02 

® ; ice" 

® j 230 DATA"1804€ÓÍ2D5E5AF01D000CD5600E11 10 
a | 0F6" 

! 240 DATA"0i Í9CÍ10EF260406092E03C5060DC5E 


5EA" 


, 250 DAT A"CD5ADCEÍ 2C2CCÍ í 0F32424C1 i 0EB 1 10 
! F7A" 



& 


<& 

<E* 

& 


260 DAT A 0i 2168DECD4EDCÍ Í0F0D217'0DECD4ED 
CE1" 

270 DATA"! 1 1 00C2178DECD4EDCÍ 1 Í0AD2Í B0DEC 
DAI" 

200 [>ATA"4EDCii050ó0ó04CS0ó02C5D50606C52 
1CD" 

290 DATA"60DEE5D5CD4EDCDí íCEí D5CD4EDC01 1 
006" 

r:i00 DATA"í C1UC1 10E9D1 1 4CÍ í€>Fi0i4i4Cí 1 0 D R P 
Í5F" 

310 DATA"! 80! 01 D000C5CD560024CÍCD56002Í9 
A 82" 


•?- I 320- DATA DE i 10501 CD3EDD2Í98DE1 í i 50ÍCD3ED 
! D0B" 

330 DAT A"2i A0DE 1 1 0E0 1 CD3EDD3A34L:0C630 í i 1 








© 

* 


34 0 [) A T A " 0 2 C.‘ D 2 7 D D A F C D 84 00 1 1 AO D D E B 0 1 C O 0 0 C 
D 13" 

3 30 D A T A " 5 C 0 O 2 1 0 0 0 C 2 2 35F.0 3 E 0 1 3 2 37E03L3C 3 
238" 

360 D A T A '' 2 9 E: O 2 1 A 0 7 8 2 2 2AE03t:0H 3 2 2 1) E 03EÔ53 
223" 

370 DA I A" 2 3 F 0 2 5 0 0 E 0 3 600 1 1 0 1 E & 0 1 1 [' 0 0 E D B 0 2 
AA3" 

380 DAT A"96DI DP21 1902CDD7DC3E30Í. 1 i AÔ2CD2 

72c" 

390 DAT A"DD3E30i í ÍB02CD27DD2Í 0000DD21 0A0 

25F" 

400 DATA /, CDD7DC2Í33C035C2A7DA2B7E2377CDE> 
1D5" 

410 DAT A"DAAFCDS700i 12AE0EB01 0400CD5C002 
ADI" 

420 DAT A "35E02B7CB528473A37 E0LJ 7FA8EDA223 
554" 

430 DATA"E02&é42A2AE0ii 607RE728061 16878E 
71)0" 

440 DAT A"2 0553 A2E r E0473E 052 103E 077232 32 32 
381" 

4 50 D A T A " í 0F 92 1E8032235E 0 AF 3237 E02 i 7 0 0 C 0 
1 4C" 

460 D A T A ■ " í 0 0 0 C 5 C D 5 6 0 0 2 4 A F C í C D 5 ó 0 0 1 8 2 9 3 A 2 
FFE" 


-*■ 
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470 DATA"F0473E082í®3L07723232323i0F?3Er 

4£0 DATA"3237E03A2EE047C578CD87«®2323 2 3 3 
Eli" 

490 DATA"08CD4D00Ci i 0F02A2AE0CB3CCEÍ jCaJí vi 

C G D /x 

5 <o<£ D A I A C B C4CB 3DCB3DCD 3D7C656F C D 8 B DC 2 0 0 
A ( * 8 " 

5 i 0 DAT A "2 A30E0 2B 7 CB 520FB i 8 i A2 i 0 1 0 ODDÍ? i & 

Q 1 0 " 

520 DATA"02CDCCDCCD4CDD2i29E03520072138L 

530 [)ata"34C397D8CD94DBC3F AD9DD2 5 00E03A2 

540 DATA"EO47C52A2AEODD5AO1OD5EOOCD06DD3 
097" 

55 0 datA ,, íFDD7E03FEG82OO6CD62D8C338D8DD3 
é. 0 f/ 

5*0 DATA"030021 i 900DDE5DD210802CDCCDCDDE 
í B 

j 570 DATA"DD23DD23DD23DD23Ci Í0C7AFCDD300B 
j 7 3 f ", ,f 

j 580 D AT A"20 0 33 A2BL0 32 28E0 4F 0 6002 1 8 0 DE 0 9 4 
S o o a ** 

| 590 DATA"46212BE07E2BDói8Eóí rCC76DB 7E23D 
j ^^ 3 " 

j 600 DAI A"20E6 j FCC57DB 79B i 2 í 95DE58460E® 1 P 

j 610 DATA"E0732i27E0347EE6®8C83Ei0322CE0C 
j 9 P 3 " 

Í 620 DATA /, CB48280C3E08322CE00C7EFEÍ 9D835L 

S 991 " 

I 630 DATA"CB40C83E0C322CE®®C7EFED8DO34CVC 
J g 7 Q " 

j 6 4 0 DATA"58280BAF322CEO0C7EFE2iD33t>C9CB ’o 

i 080" 

j 650 [>ATA"C83E04322CE00C7EFEA0t>034C93A2EL 
I 66C DATA"3D20033A2FE0322LE0473D8787DFi60 
I 670 DATA"DD21 00EODDÍ9DD7E03B7200EDD36006 

1 j 0F7" 
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€• Í 68$ DATA /, DD36$i78DD36$3$S1834Dr)4E0?DD7F$ 

‘ ÍBF" 

69$ DAT A /7 D6í 8E6 3 F CC$óDCC)D7E0$Dó20Eóí F CC2 
A54" 

700 DATA // DC7SC5CD870$EBDDE5E í 0 3 C400DD360 


& 


209" 


7Í0 DAT A" í 4CD5C00C í DD7 1 02CDB 8DCEl>i FCOCDB 
813 " 

720 DA i A "DCE 603 4 F06 0 0 2 í 9 í DE A 9 7 F DD7 7 G2C9D 




i 


# : 


i 


73-^5 DATA"7E00CE5y280DFE2i3804[)D3500n9nR9 
9 Ei" 

740 DATA"CBDiC9CB5í C8FEA03004DD3400C9CB9 
í ES" 

750 [>ATA"CBD9C9DD7EeiCB49280DF E193804DD3 
5F0" 

760 ÜATA"0í C9CB89CB C i C9CB 4 í C8F ED83004DD3 
46 A" 

770 DATA"0iC9CDOíCBC9C9CB23CB23CB2301080 

0F7" 

780 DATA"C35C00CB 25CE25CB2501 0800092B3E0 
ÍAD" 

790 DATA"C'D4D00093E:80CD4D0Oí ÍFÍ 00i 93E03C 
DóF" 

800 DATA"4D003E0Í 23CD4D00093E80CD4D003EC 
007" 

310 DATA"2BC34D00CB25CB25CEt250i080009-2BC 

DF 5" 

820 DATA"4A00B7C8AFCD4D0009CD4D00i 1FÍC0Í 
920 " 

830 DAT A"CD 4 D00238D4D0009CD 4 D002B 8041)003 
DB4" 

840 DATA"C93A20E04/17í7EÓFC4Fí7808í4FED5 

F7C" 

850 DATA "8 1 3220E0C9ED4B21E009222 1 E02A2Í E 
02C" 

860 DATA /, 0E05‘í 60ACDF : 4DCE5E*5C57B C630DD55E) 
128" 

870 DATA ,, CD27DDDD2BCiDí E10DC2DBDCC9061 01 

E5D" 

880 DATA"0C297B i 75FB AFA03DD925F" 2C Í0F3C90 
1D3" 


1 2 




í i^ DATA, ' 0C0CÍ,;,23E:0E D53L>5Eí.O9E-Be93A2AE0 1 

1 nr 6 

í ’fw, DATrt "D03A24E0BCD03A25E0BBÜ03A23E0BDI 

I /I ft 

! 9DC' - DATA " CB23CB23CB236F 26e0?92929ED4B20f 

920 D ATA' , 0901080OC35C00 7 EB7COE5DDCDE‘7 D D [ 

^ DATA " CÍÍC23í8F2AF1E0 ®CD93003CiEô í ?CDÇ 

vJc_ V 

9^0 DA[A '003C í[ )CD93003CiCnr)93003CCD9:i00S 

LuL 

n7'^/ DATA/rD93003CiE: ' 3,0CD930c,3C1 E29CC)?3003 

r. 6 d 

960 DA T A"íEl.eCü93003C. : ÜD93003CCD93003F0Bí 

COÔ 

ofn« DATA " 00CD93 003i:eCiE04CD93C03EeDiE00C 

3 í B 

P 3 t , DATA " 93O0ÍE;3F3E:0 7 C 393Ô00©00001B3S3C/ 

w L c. 

EBD'' DATA " 7E7E7F3F3FíF0F03000ee00Ô1B1C3C3 



13 



i \ '■ % , . C A 7 A , 7 E 7 8 F 8 " C F C F 8 F 0 1 ; 0 0 e 0 0 0 3 0 F 1 F 3 F 3 V 

} / 1“ r.? I.« 

; 1010 IjA í A' , 7E7E7C3C38Í80000000OÜ0F@F£}FCFC 

} F L 0 A ^ 

I 1020 £>ATA // 7E7C3E3CíCí80000e00e030F : l I- j F'07 
| 0ÍD3" 

j "- 1 * * * 4 Ô71FÍ F0FO30000C0F r (íFBFCI C 

; FE.' 7 9 a ' 

j *- ^ ^ ^ ^ A 1 A " 7 F 7E F E. F C F CF r 8 FO C 0 000 0 0 3 0 F í F 3 F 3 F 
J 7 F c! B 

j 1 ^ 7F"7F3F3f í F : 0F03000OC0F ÔFBF8F0 

I 5 ( ? 1 0 „ C> A T A " ® 00 ® 8 ® F 0 FRF 8 F <ò C0000 0 O 3 <?,F 1 F 3 F 3 F 
! 7 F l :: 3 " 

i r í ; | ?^ 0 // DA 1 A '7F7F7F 3F3FÍF0F030000C0F0F3FCFC 
1 Í®®®, / DATA " FE -" EF th CFCF8F0C00000031C20404C 

\.i f.. \J».I 

1 0 9 0 Í>ATA"32524C4040402619000©C038040 ? 3 3 
4A2A" ' " 

9F9F9009F 

VI" \./ 3 

ií í. 0 DATA''? "000 í 0Í 0i 030F r 0i 00 1F i F0F070300 
00F2" 

í í 20 DATA"0Õ0000E00000C0E0F0F0F0E0808000 
0020 " 

1 i 30 D A TA"000 00 80901 050406020 A0906O AC 500 
0094" 

H4fi DATA"004D2E504F4E544F005ó4?44410041 

4382" 

■U;50 DATA"41 424F552E2E0090OÍ04035C0Í0503 
2C7 A 

1. í. 60 DATA"0í 0504FA000504C80006059600060Ó 

64E2" 

i. i. 70 DAT A "0007080 i00080F00<i0000000gô0000 

00C3" 

lí 80 DATA 07, iF , 3F , 79, 79 , FF , í F' , 03 

Í190 DATA 00 , 03 , í F , 7F , 7F , 3F , í F , 07 
1200 DATA E0,F8,FC,FE,F E, FF, FF, FF 
1210 DATA FF,FF r FF,FE,FE,FC,F8,E0 
.1.220 DATA 07,iF,3F,79,79,FF,FF ,FF 
1230 DATA 0í,FF,FF r 7F,7F,3F,iF,07 


4 


© 

© 

& 

* 

© 

€■ 

«■ 

«■ 

«■ 

& 

*1 

«■ 

«• 



DATA Et> , F e , FC , FE , FC , FF , FF , FF 
DATA FF , FF , FF ,FE , FE 7 FC , F8 , E0 
DATA 00 , 00 , 7E , 7F , 7F , 3F , 7E , 00 
DATA FF ,81 ,81 ,8Í , 81 ,8í ,81, FF 
DATA 6 1 , 6 í , 61 , 8E , 8F , 9F , F i , F í 
DATA Fí ,Fí ,F5,F5,F5,F5,F5,FS 
DATA "000D3 A 2D0Í0A2 1000100031 1100 01 
0 0 0 0 0 0 0 41 6 í 1 4 1 2 0 4 0 0 0 i 6 3 i 0 0 0 í 2 0 4 2 1 . 6 3 1 2 í 2 0 
40001000331 000120" 


i. 240 
1230 
i 260 
1270 
1280 
i2?0 
1.300 


1310 OPEN "CRP:" ASttí 

j. 320 ON INTERVAL-7 GOSÜÜ 1680 

í 330 COLOR ib r 1,1 

1340 SCREEN 2, 2 : RESTOREí í 80 

í 350 FOR M=.i TO 2:X4="" 

1360 FOR N-í. TO 32 '■ READ AlsX*-OC* + CHRS< VA 


L("SH"+AD) : NEXT 


1370 SPR ITESi <M)=X9>:NEXT 

1380 FOR N=0 TO ÜVPOKE 6144+N 7 2 s DP OKE 6 

400+N , 2 : VPOK E 665Ó+N , 2 : NEXT 

1390 FOR N--0 TO 15: READ Aífc : A=VAL ( "&II" t-A‘1- 


) 

1.400 VPOKE N , As VPOKE N+2048, A : VPOKE N + 40 
96 , A 

1410 NEXT 

1420 FOR N--0 TO 1.5: READ A4 s A=VAL < "«H"+A4 
> 

1430 VPOKE N+8192, AsVPOKE N+ í 0240 , A s VPOK 
E N+ 12288, A 
1.440 NEXT 

1450 FOR N-2 TO 31 STEP 45VPOKF 6528+N,0 
1*60 NEXT 

1.470 PLAY "S0M3000O2" 

1480 K-i s INTERVAL ON 

1.490 FOR N=255 TO 0 STEP -isPUTSPRITE i, 
(N,9 í) 7 12,K 

1.500 IF VPEEK ( 6529 + N/8 > = 0 THEN PLAY"A" = V 

POKE (6529+N/8) ,2 

1510 NEXT sPUTSPRITE 1,(0, 0>,i 

1520 E-6304 : READ W4 

1530 FOR N-í TO LEN (Uí ) • A=VAL < "&H"+MID t Jj ( 
W4 ,N, 1) ) 

1.540 VPOKE E , 1 s E=E+A+1 sNEXT 
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! 15*0 IF STRIG(0>— ft THEN 15 60 
j 1600 A— USR0 < O ) 

I i6i ® IFSTRIG(0)=0TMCNi6i0 ELSE 
! 1620 K=3-K s RETLIRN 
| ÍÓ30 PRINT"Erro de dig.itacao na 
■ 1640 PRINT"Conf i ra, por favor." 







VIA. 



Wilson Fazzb Marins 


ESTRADA DE FERRO 

Você é um hábil funcionária de uma ferrovia. 
Sua função § controlar os desvios de uma estrada de 
ferro e impedir que os trens colidam. Nelas existem 
locomotivas azuis e uma negra, que transporta grandes 
quantidades de dinamite. Você deve. inteligentemente, 
mover os desvios para que esta locomotiva pegue as 
fcandeirinhas verdes ao longo das linhas. As locomoti- 
vas azuis nada fazem ao passarem por elas. e tem o ú- 
r.ico objetivo de atrapalhar sua missão. 

Então. ccm o auxílio das setas ou de um "joy- 
stick". voce deve mover o quadro vermelho e colocá-lo 
sobre o desvio a ser deslocado. Apertando-se a barra 
de espaços, ou o botão de disparo do joystick, a opera- 
ção é efetuada. 

Você deve recolher todas as bandeirinhas an- 
tes do marcador de tempo chegar a zero, pois caso con- 
trário o jogo estará perdido! 

Peito isso. o tempo que restou é adicionado 
aos seus portos e você passa para a fase seguinte, ma- 
is difícil. O jogo tem 10 fases diferentes. Os trilhos 
e o número de trens azuis se modificam em cada fase. 

Se ocorrer uma colisão, a d;namite explodirá, 
destruindo seu trem. Então vucê perde uma das suas 
três locomotivas, indicadas na parte superior do vídeo. 

DICITACSO 

A digitação de "Estrada de Ferro" é realmcnte 
um tanto delicada, devido ao seu grande número de li- 
nhas DATA que definem o desenho dos trilhos, de todas 
as posições do trem e os percursos das de 2 fases. 

Então, nio é necessário dizer para tomar u 
máximo de cuidadu na digitação dessas linhas. Confira 
várias vezes cada linha digitada. 

Nas linhas de 1230 a 1290 está a rotina que 
executa uma música ("Colunei Bogey” - tema de "A ponle 
do rio Kwa i" ) durante o jogo. Muito cuidado ao digitar 
os dados entre aspas após as instruções PLAY. Não con 
funda o "0" (letra) com "0" (zero) e vice-versa. 

Se os desenhos do jogo lhe parecerem estra- 
nhos. confira as linhas de 1850 a 1290. 

As letras das linhas DATA de 2360 a 2500 de- 
vem ser digitadas em MINÚSCULAS. Qualquer troca causa- 
rá um grande erro no programa. Todos os textos do jogo 
devem ser digitados, per sua vez, em MA I ÚSGULA5 . 

Os desenhos das fases e os dados das posições 
dos trens em cada uma delas encontram-se nas linhas de 
2510 até o fim. 


-t 
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Quanto ao 

dificuldade, pois é 


reato dc programa, nan 
até pequeno pelo que e 


ni nenhuma 
e f az . 


Figura 2.Í - Prograwa ESTRADA DE r ERK0. 


$ 


€< 


100 
í 10 
i ?0 
130 
140 
Í50 


**# ESTRADA DE FERRO *** 


KLM 
REM 
REM 
REM 

C LEAR 5G&0: DEFINI A 
COLOR í r J y í r í sSCREEN 


W » 1 sen F- Mcirl i ns 


Z=KEY OFF 


i r 2sWIDTH 32 


* ; 

*> * 

* j 

í 


i 

to i 


* 


i. 60 DEFFNQS ( A , B ) =R I GHT4 ( "00000"+ M I D* ( ST R 
t ( A ) , 2 ,LEN< STRí < A))-i)rB> 

170 DJM Pí<14,2> 

FOR N=i 10 í©:BS="" 

FOR M~0 TO 31 : R EAD Aí 
BÍ=U3S+CHR<b<0AL<"&H" + Aí> ) : NEXT 
SPRITES<N>-B* :NCX1 
FOR N—776 TO 855 :R EAD Aí 
A-VAL("«H"+Aí> sOPOKE N, As NEXT 
FOR N-896 TO 903:READ Aí 
A==VAL<"«H"+AÍ) sVPOKE N , A s NEXT 
VPOKE 8204,26:OPOKE 8205,26 
OPOKE8206, 202 

FOR N = 0 TO i 4 : FOR h=0 TO 2 
READ Pí (N, M) = NEXT M,N 
C LS 

LOCATE 6,4sPRINT STR I NGÍ < 20 , 1 1 2 > 
PRINT TAB ( 6) ; "p ESTRADA DE FERRO [■’" 
PRI.NT TAB(ó> ; STR I NGí <20, 112) 

LOCATE 0 ,9: PRINT STR INüí (160,103) 
LOCATE 0,11 :RRINT STR INGí < 32 , 97 ) 
LOCATE 10,i0=PRINT CHRÍ(105) 

LOCATE 3 , 22 SPRINT "DIGITE ESPAÇO PAR 
A COMECAR" 

380 M=0:FOR N=0 TO 1000= NEXT 

M-H+i sPUTSPRITE Í,<M,78>,4,1 
FOR JS=0 TO 2 : T=STRIB( JS ) 

IF I THEN 430 
NEXT: GOTO 390 
(3 OS UB 1570 

RESTORE 2530sFA~í : PO-0 : UI : =3 
GO SUB 1600 : TE=999 


180 
190 
200 
2 1 0 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


390 

400 

4.10 

420 

430 

440 

450 
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460 FOR W='~ 1 TO NT 

47 <ò :i:F W-i. THEN CO= 1 EL SE CO- 4 

480 PUTSPRITE U+ 1 , ( X < W) *8 , Y < W > #8- 9 ) , CO, P 

T < UI ) 

490 FOR N-=2 TO NT 

500 IF X < í ) ==X < N ) AND Y<Í)=Y(N) THEN GOTO 
í 330 

510 NEXT N 
520 60 SUB 700 
530 NEXT Ui 

540 locate: 20 , 0 !TE«te~í sprint f nqí ( te: , Í1 ) 

550 IF TE>0 THEN (30 SUB í 570 : GOTO 1490 
560 ED»X< 1 >+Y( i >«32+6144 

570 IF VPEEK < EI>+i ) =1 12 THEN VP QKE'ED+1 ,10 
3: GO SUB 840 

580 IF VPEEK < ED-32 > ” i 12 THEN VPOKECD 32, 
103 s (30 SUB 840 
590 IbSTICK(JS) 

600 IF I = i THEN CY”CY— 3 

610 IF ]>3 THEN CY=’CY+3 

620 IF 1*3 THEN CX*CX+3 

630 IF 1-7 THEN CX-CX-3 

640 IF CX<2 THEN CX*29 

650 IF CX >29 THEN CX*2 

660 IF CY < 3 THEN CY»2i 

670 IF CY >21 THEN CY=3 

680 PUTSPRITE 1 , ( CX«8-4 , CY#8-5 > „ 6 r 9 

690 GOTO 460 

700 X(W>*X<W)+FX<M> =Y< W)=Y( W>+FY(W) 

10 Q<W)*P<W> 

720 P < W > - VPEEK < X ( W ) •* Y < W ) «32 + 61 44 ) -97 
730 IF P < W > =7 THEN RETURN 
740 IF P < LI > ==Q < W > THEN RETURN 
750 IF P < W > '-2 AND <FX<W>--1 OR FY<UJ>=-1> 
THEN PT(W)=4-4«FX<W) ISUIAP FX ( UI > , FY ( UJ ) : F 
X ( W ) *-FX ( U > s FY ( W > =-FY ( W ) : RETURN 
760 IF P < UI > — 3 AND <FX<W)~i OR FY(UI>=-Í> 
THEN PTCW):=3-4«I- Y(W> SSWAP FX < W ) , FY ( UI) : RE 
TURN 

770 IF P < UI ) =4 AND <FX(W) = Í OR FY<W>-Í> T 
HEN PT(W)=4+4*FY<U> SSWAP FX ( W ) , FY < W > s FX ( 
UJ)a-FX(W) 2FY(W> = -FY(U)> t 



\rTT1717\rvrvn} ITinri» vru iriPu U u vw v 


7 RO IP P(W)-D AND <FX(U>=-i OR FYíLD-i) 
THEN P T ( W ) -3-4*F ; X ( W ) : 5UAP F X < W > , F Y < W > -RE 

7V0 N IF' Q<W>=0 THEN FX( W ) =-FX < U ) : X ( U )“X ( U 

O0l > IF ) Q<U!) = l THEN FY(W)--FY(W)-Y(W)-Y(W 

B10 IF P(U)=0 THEN FT< W >=3-2*F X ( W) 

020 IF P ( W > = í THEN P T< W ) =4-2*1' Y ( UI) 

030 RETURN 
040 PO=PO+i0 

850 LOCAI E 8 , 0 : PR INI FN9S ( I 0 , >j ) 

86,0 SOU ND 7 , 56 • SOUND 10, i6 = S0UND 13,0 
070 SOUND 12, iôsSOUND S.ÜSOUND 4,0 
880 NB -NB - 1 

890 IF NB >0 THEN RETURN 
900 IN TER DAL OFF : STR 1 6( J S > OFF „ 

BEEF > = PLAY ''SCMóOOOLOCCÍ ÁCiADL4Er *. 

920 IF PLAY (0) THEN 920 
930 GO 8 UB 1570 

;?40 -LOCATE i®,ii«PRINT „ AriAfirkie „ 


• í 950 LOCATE 


10, 12 SPRINT " PARABÉNS 


0 i 960 LOCATE 10,i3:PRINT 


970 FOR N-0 10 5000® NEXT 
980 PLAY "0Í5L16CFB" 

990 LOCATE Í0,12:PRINT " BONUoS 

E , 3 ) 

1000 FOR N-0 TO 5000 : NEX I 
1010 PO“PO+TE 
1020 PA=FA+1 

1030 J.F FA-li THEN RESTORE 2530 

1040 GOTO 450 

1050 ED-CX+CY *32+6144 

1060 DT “VPEEK < ED ) -97 " DA=DT 
Í07Ô IF DT >5 OR DT < 2 THEN RETURN 
1000 DN-VP EEK ( ED-3? > 

1090 DS-VPEEK (ED+32) 

1100 DL=VPEEK(ED+1> 

1110 DO~OPEEK ( ED— 1 ) 

1120 DT -DT+1 ! IF DT=6 THEN DT=2 
í 1130 IF DT- DA THEN RETURN 


BÔNUS: "sFNQftU 



.Í.Í40 IF DT=2 AND ÜSO103 AMD DLO.Í03 T 
N 1190 

ií50 IF DT»3 AND DSO103 AND DOO103 T 
N li 90 

1160 IF DT -■■A AND DNO103 AND DOO103 T 
N 1190 

1170 IF DT = 5 AND DNO103 AND Dl... < > 1 03 T 
N 1190 

118® GOTO 1120 

1190 SOUND 7 ,28: SOUND 6,3í:S0ÜND 10,16 
1200 SOUND 13, 4: SOUND 12,2 
1210 UPOKE ED , DT +97 s RETURN 


SOUND 7 ,56 í MU-MU + 1 


1230 IF MU- 9 THEN MU=1 
1240 IF MU >7 THEN RETURN 
1 2 5 0 IF MU— í THEN PLAY "Y904L4T254AF#8R8 
Is 1 2 R 4 F H GA" , "T25403U7DA O 2 A O 3 A D A O 2 A 0 3 A " 

1260 IF MLJ-2 THEN PLAY "05F«R4F«R4í)í " , "D 
04D02A04D03DBAF#" 

1270 IF MU = 3 THEN PI AY "04AF«BR8R2R4F«GF 
it" r " O 3D A O 8 A 03 A D A 02 A 0 3 A" 

1280 IF MU--4 THEN PLAY "04AR4AR4G1 , "03C 
« 0 4 CH02 A04Ctt03C « FAFJ " 


I 1290 IF MU “5 THEN PLAY "GE8R8R2R4EFHG" , " 
•& | 04C#03A02A04C#03CHA02A04Ctt" 

«-j 1.300 IF MU=Ó THEN PLAY "AFH3R 8R2R 4FHG1K F 
& í 148" , "03DA02A03AD04DL2"’ 

; 1.31.0 IF MU=7 THFN PLAY "EAR4FHGHER4BA1 Aí 
# Í " , "03EA0-4C14E03EB04DED03B AF#D" 

•S í 320 REI URN 


! í 330 
| 1.340 
• 1 350 
! 1360 


INTFRVAL OFF : STRIG < JS) OH 
DEEP sSOUND 7 , 7 sSOUND 8,16 
SOUND 6 , 3 í sSOUND í 3 , 0 sSOUND 


,60 


PUTSPRITE lv (X<i>*8,Y(i ,6, 1.0 


® j 1.370 FOR N“0 TO 5000=NEXT 
«•1380 GO SUB í 570 
. i 1.390 VJ>VI-Í. 

V • 

«; 1400 IF OKO THEN 1490 
j 5.410 FOR N= : í TO NT 
|1430 X ( N )=OG ( N , í ) : Y <N)~0G(N,2) 

* ; 1. 430 FX < N ) “OG <N, 3 ) : FY< N ) =OG ( N , 4 ) 

& i 1.440 P(N)=VPEEK(X(N)+Y(N >*32+6144 >-97 


I 




PONTOS : 01 7 97 TEMP0:935 FASE:04 




.1.450 

3.460 

3.470 

3.480 

3.490 

í 500 

153 0 

1520 

.1.530 

1540 

3.550 

1560 

3.570 

1580 

1590 

1600 

empo " 

3 6 3 <ò 
3.620 
3.630 
1640 


F' T ( N ) =P ( N ) -2# < FX < N > +FY < N ) ) +3 
NEXT 

GOSUB 3.780 
BOTO 460 

BEEP s INTEROAL OFF:STRIG< JS) OFF 
LO CATE 10, li SPRINT" 

LOCA TE 3.0, í 2 SPRINT" FIM DE JOGO 
LOCATE 10, 13SPRINT" 

SOU NO 7, 56 s PLAY "Oi 4L32R AGFEDC4 

FOR N = 0 TO 2 

IF STRIG<N> THEN 300 

NEXT: GOTO 1540 

FOR N=0 TO NT 

PIHSPRTTE N+i. (0,0>,0,NaNCXT 
RE T URN 

CLS SPRINT " PONTOS: FNS3i( PO, 5) 

999 FASE :"íFNQ9>(FA,2) 

PR TNT " ";STR1NG%(30, 1.03) 

FOR N~0 TO 6 

RFAD Al s FOR M^0 TO 9 

A = O A L < "« H "+MIDÍ ( A4 , M + í , í ) > 







* 

& 

# 

© 


1650 

16*0 

1670 

1680 

1*90 

1700 

1710 

1720 

1.730 

1740 




1750 


6 


17*0 

1770 

1780 

1790 

1800 

1810 


1820 


€* 


1830 

1840 

1850 


L.OCATF M*3+i , N*3+2 :PR INT PS(A,0> 
LOCATC M*3* i ,N*3+3:PR INT PT, ( A 1 ) 
L.OCATE P*3+í ,N#3+4 SPRINT PS(A,2) 
NEXT M , N 

READ NB , NT t FOR N = i TO NT 

FOR M=i TO 4 

READ OG ( N , M ) : MEXT M,N 

FOR N-l TO NT 

X ( N >=OG < N , 1 > : Y < N > =OG < N , 2 ) 

FX < N ) =OG ( N , 3 ) : FY ( N ) =0(5 ( N r 4 ) 

P ( N ) -OPEEK ( X < N ) +Y ( N > *32 + 6144 } 97 
PT(N)=P<N) -2#<FX(N) +FY ( N ) ) +3 
MEXT 

C X -• 2 : C Y - 3 
LOCATE 13,1 

PR INT STRINGS <01 , Í06) ;CHR4< 103) 
MU=0 • GOSUB 1220 
STRIG(JS) ON 

ON STRIG GOSUB 1050,1050,1050 
INTERVAL ON 

ON INTER0AL=ii3 GOSUB 1220 


* ; .1.860 
© ! 1.8/0 


RETURN 
DATA 00 
DATA 7 F 


* ; .1.890 
® ; .1.900 
© ! 1910 

• | 1920 
i .1930 

® ! 1940 
« i 1 930 

•I í9 ** 

j 1.970 
•! 19(30 
«í 1.990 

* í 2000 
; 2010 

® i 2030 
© I 2030 
j 2 04 0 
í 2030 

* í 20 A 0 

* ! 2070 


DATA 00 
DATA FE 
DATA 1.0 
DATA ÍF 
DATA .1.0 
DATA 8« 
DATA 02 
DATA 3F 
DATA 00 
DATA E F . 
DATA 00 : 
DATA 63, 
DATA 80, 
DATA FC, 
DATA 00, 
DATA 7F, 
DATA 00, 
DATA FE, 
DATA 06, 


2080 DATA .1.F 


, .... .. ,, 

* i 2090 

♦ ! 21.00 

• i 2 .1 .1 0 

í 2120 

v | 2 1 3 0 
& ; 2.1. 4 v 

© j 2.1 -V 
! 2.1.60 


data 00 

DATA F'0 
DATA 01. 
DATA 3 F 
DATA 00 
DATA 06 
DATA 00 


0,00 

F , 71- 

0 , 00 

E ,FF 

0 , 1 F 

F , 3F 

0,F0 

0,80 

2,07 

-,7F, 

3,00; 

" r F C , 

3,01, 

),F7, 

1,130, 

: , f f , 
>, 00 , 
,7F, 
’ , 0 0 , 
, I* I::. , 
, 1 . F , 
,3F, 
,80, 
, 10 , 
,01., 

, 7F , 

, 80 , 

, e:f , i 
,00,' 


, 00 
,7F 
, 00 


F , 1 F , 
Fr 91" , 
0,F0, 
0,90, 

7 , 0t r 

F r 6F , 
0 , 80 , 
C , F 8 , 

1 r (33 , 

7,7F r 
0 , D 8 , 

, F6 , 

3.00, 

, F I" , . 

2 . 00 , ' 

;:,fe,í 

■' r i. F r : 
: , 7 F , ", 
),90,r 
10 r J 

',6F,€ 
1 , 0 0 , t 
, FE , F 
,01,0 


2.1.60 DATA F7,3F,1F, 
2170 DATA 40,E0,F0„ 
2180 DATA FC,FE,F6 
21.90 DATA FF , FF , 00 


• 

1 

2200 

DATA 

00 , 00 , 00 

4' ( 

1 

22.1.0 

DATA 

FF , FF , 03 

■$< : 

i 

2220 

DATA 

03 , 03 , 03 

% ! 

2230 

DATA 

08 , 0 F , 01- 

1 

» 

í 

2240 

DATA 

FF , í F , 03 

i 

2250 

DATA 

01,03,0/ 

S* ! 

i 

& ! 
£6 

2260 

DATA 

FC , FE , FF 

2270 

DATA 

2 2, FF, 22 


0,00, FF 
F ,7F, FF 

0. 00. 3(J 
: ,F F , FE 
",3F,7F 

• ,/F,3F 
3,F0, 10 
3 , F O , F 0 

• , 1 E , 3 D 
",07,03 

1, C0,60 
<,FC,FC 
1,00,04 

, 3F , .1. F • 
1 , F EL , 7E , 

,E0, C A , 
,00,30, 
»/F,7F, 
,00, FF, 
, FE , FE , 
r 3F , 7F , 
, 7F , 3F , 
, f"0 , F0 , 
, 10, F0, 
, 7F , 7 E , 
,07,03, 
,00,20, 

, ED , F8, 

,03,06, 

. 31“ • 31“' , 

. 78 , 30 , 
E0,C0,l 
00,00,1 
C0,C0,( 

03.03, » 

03.03, < 

07 . 07 , < 

03.07, * 
0E, 1E,F 
F8 , F8 , 5 


22,22 


“ F ,71 ,71,71 
F, 1E, 00,00 
30, 18, 18, FE 
•E, 78, 30 , 00 
r F,7F , 3F, 1F 
!F, 1 F , í F , 06 
-0, 1. 0 ,10, F 0 
'0,90,80,00 
IC , FE , FF , 7F 
'3,07,06,00 
■0,30,64,06 
C , F8, F8 , 60 
4 , 0E , í. B , 31 
F , 01 ,07,06 
E , FF , FF , FE 
0,E0, 60,00 
0, .1.8, 18,7 F 
r rí. E, 00,00 
F , 8E , BE , BE 
Sr 78 ,.30, 00 
r - r 7F , 3F , í F 
“ , .1. F , í F r 1. 0 
3 r 90 , 80, 80 
M"0,F0, 1.0 
£ r FF , FF , 7F 
ir 07,06, 00 
K70 , D8, 80 
1 » F0 , E0 , 60 

> r 0C , 26 , 63 
rí FriF ,06 

r7 F, FF, FE 
r E0 ,60-, 00 

'r 00, 00, 00 

r C0 , FF , FF 
r 03,03,03 
,03, FF, FF 
,07,1 F , 7F 
r 07 , 00 , 08 

, FC , FC , F8 
,38, 18,03 
,22, FF, 2 2 



© i 

2280 

DATA 

42, 42, FF, 42, 

1 

1 

«. 1 

2290 

DATA 

08, 0F , ÍC , 24 , 

« 

! 

€* i 

i 

2300 

DATA 

10, F0, 33, 24, 

23x0 

DATA 

42 , B 2 , 4E , 47 , 

& i 

2320 

DATA 

42 , 4D , 72 , E2 , 

i 

<*•. i 

2330 

DATA 

00,00,00,00, 

® i 
i 

2340 

DATA 

42, FF, 42, 42, 

& i 

i 

2350 

DATA 

00 ,22,14, 08 , 

€* ! 

2360 

DATA 

00 , 38 , 2A , 3F : 

i 

<& J 

2370 

DATA 

60, 78, 7E, 78 

i 

i 

2380 

DATA 

339 » asa» 99ÍV 

© ! 
i 
i 

2390 

DATA 

gbg,9by,gbg 

© j 

2400 

DATA 

ggg,gca,gbg 

© j 

2410 

DATA 

s 93 , adg ,gbg 

i 

® i 

2420 

CATA 

sbg , aeg,999 

v • 

i 

2430 

DATA 

gbg . gf a , 939 

© i 

i 

2440 

DATA 

939 , aca ,3b3 

• i 

2450 

DATA 

gbg , ads ,gbg 

«< i 

2460 

DATA 

gby , aea ,99 3 

• 

<& i 
1 

2470 

DATA 

9 b g, 9 f a, gbg 

2480 

DATA 

gbg, aca, gbg 

& s 
1 

2490 

DATA 

9 9 3 ,939 ,999 

* i 

2500 

DATA 

gb i ,aha,gbg 

1 

« ! 

2510 

DATA 

gf,y,aaa,ggg 

1 

2520 

DATA 

gbg ,9bp ,gbg 

v i 

I 2530 

DATA 

BD000 60803, 


000D04 , ,, , 

2540 DAT A 6,2,i7,2i,-l-0»23 t íc., J;® 

2550 DATA 2006000003, E20A00003L , H Bi F. B 0 B 
Éi, 9C08CD60C7 ,liBBlBiBii,i 50080A 041 , 50 D 

008001 , , A 
2560 DATA 6, 2 , 8 , 2i , - 1 » 0 » 23, 6 , -1 , 0 

2570 DATA 2600000D23 , i i 206D03 i i » i í í 2C03 í 
1 i , Eii 1 1B í ií i * ÍEÍ58D4Í i í , 1580000C4 í , 5000 

0008D4 _ 

2580 DATA 6, 3 , 14 , 25. , í , 0 r 8 ,3 , í ,© , *.3, ic. , 0 , 

i 

2590 DATA 2060606063 , iBEBEB iB 1 1 , 90A0CDA0 
7E , í Bí B 1 B 90CD , 90AOA0C07E , ÍB í B 1 B 1 B í 1 , 5030 
808084 




12660 DATA 7, 3, 14,1 £, 0 ,- 1 , 21 . 21 , 1,0, 11 , 3 , 

} 1 7 y> 

| 9C<ÍCACCDC7 ' 9 C DCCCC 0 

* ; eeQ 0 -H CCACDC 7 ' 9 CDCCCC 0 c 7 ,9C0CC[:CDA7 - SODe! 
j 2620 DATA 7 , 3, 20 , i 7, 0 , -í r 15 ,9, 1 , 0 , 8 , í 8 , - 

• I fff, ?-IÍ«rS°??í C ® 3,1Ei2 ® e8 ® 3i » 9CACeAD3 

« ; 0800 d 5 A L7,íl500C04íirE5000AÔ041,500 ° 

•í ? 6 f! £ AT ? Z’ A ’ 8 ’ 21,1,0,26,15,0,1, 2,15,0, 

I •*■ * * f ' r J. r \y 

.. j DATA BEB1B2DB1B ,0A0C0G00CD,BiBiB200 

í f í 0 J A r f'^ 2 - i 5'®>-i.2.ÍB,e,i, 2 S .,21,- 

í r V y y 6 , “ 1 y 0 

# í n? 7 L£! TA ^^00Ó00B,9000«0C0Ô3,ÍD0060C0 

" i DE,9000A0A0D0,1D0080C0DE, 9000008004, 3000 

• 0OC CDB 

* S 2 f 8 ?o D ?o A , B 1 A ' 26 r 3 ’ _1 ' 0 ’ 1 2 ' 3 * 1 . 0- 23 , 9 , - i. 

1 r Vrlcí, lM r í r 0 

«, [2690 DA1A B20DEED03B , B 1D6AA0D 1B , DA0D1FD0 

♦ í r DA00A000AD , DA0D 1 FD0AD . B 1D0AA0D 1 B ; D 50 D 

| fc.LU 0 ^B 

Í2700 DATA 24,3,20,12,1,0,9,12,1,0, 23, 21 , 

# í 1 r rs 

4 , j27i0 DATA 2000000003, Í200000DÓ7, 1 1B2000' ; : 

« | 0000^ C00071Í " 1908 ® 0 ^1 1 rí50000004E,500C 

•j 2 !?Vfí A «2'f r29,15 ' e *’ 1 ' i7 ' 6 '-i'®'«' i a 

Ai r * r vy 17 r i j r í r 0 
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(MTEROIDS 


Wilson Fazzio Martins 



ASTERÓIDES 


Este é ma i s um famoso jogo que já esteve prs- 
sente nos fliperamas, nos videogames e agora está dis- 
ponível também para o seu MSX. 

Seu objetivo é muito simples: destruir intei- 
ramente uma nuvem de asteróidcs que rodeia sua nave, 
evitando que ela colida com os corpos celestes. 

Você dispõe dos seguinte comandos; 

A (seta para cima) - acelera a nave para frente. 

[> (set a para direita) - gira a nave para a direita. 

<] (seta para esquerda) - gi ra a nave par3 a esquerda. 

c=»barra de espaços - dispara os canhões da nave. 

Note que a nave não possui freios! 

lima vez que voei a tenha aceleradn numa dada 
direção, para diminuir sua velocidade você primeiro 
terá que girá-la, posicionando-a em sentido contrario 
ao do seu movimento e, depois, acelerá-la novamente. 

Isso produz um efeito de inércia na rave, tor- 
nando o jogo mais realístico. 

Você dispõe de três naves para cumprir sua 
missão. Se todas forem destruídas, o jogo recomeçará. 

Após ter destruído um cinturão de asteróides, 
você será automaticamente " te I eoor t ado" para outro, 
mais difícil de ser destruído. 

DIGITAíZO 

A digitação deste programa é bastante simples 
pois quase todas as suas I infias usam apenas a Instru- 
ção DATA. 

Caso voce cnmeta algum erro na introdução dos 
dadas em alguma dessas linnas, o programa indicará on- 
de ocorreu o erro. facilitando sua correção. 

Figura 3.1 - Prograaa ASTERóíDFS . 


$ i 

i® 

REM 

#** * 

ASTERÓIDES 

M* * * K 

1 

2® 

rem 

* * » * 



•I 

3® 

REM 

* * * X 

De W i 1 son 

F- Mart 

$ j 

4® 

REM 

**** 

e Yeh Yu 

S una 

• i 

50 

REM 

X- * tt * 




n s 


30 


6Q> CLEAR i <ò<ò<d , &HD000 sDEFINTA-Z 


70 

80 

DE 

70 

100 


40 SEGUNDOS 


K E Y O F F = S C R E E N 0 "UJIDTH3 8 
LOCATE1 , 10 s PR INT"AGUARDE 
PROCESSAMENTO." 

L I -• 180“ FORM -• &HD000TO&HD9FFSTEP 8 
S-0 ! FOR N=0TO7 sREADPS = P=VAL < / '&IT"+P® > 




. 1.80 

170 

200 

210 

220 


i g i t ac ao 
favor . " 


110 P OKE ( M+N) ,PsS=S+P*CN+i ) 

120 NEXT " READPSs IFP5< > R IDHTíb ( 

) , 2 ) THE Ni 60 
130 L'I=L 1+105 NEXT 
® ! 1 40 DFFUSR-&HD000 : A--USR < 0 ) 

150 END 

160 CLS " DEEP : P R I NT"Erro de d 
1 inha"»LI*PRINT"Conf ira, por 
170 END 

DATA C 3, 3 9, D4, 00, 03, 04, 18,60,80 
DATA 80 , 80 , 80 , 80 , 80 , 40 , 20 , 20 , E0 
DATA 1 0, 08, 07, 30, C8, 04, 04, 02, 21 
DATA 02 ,01,02,02,02,01,01,02, 3? 
DATA 04 , 7C , 80 ,07,08,10, 60 , 80 , C0 
230 DATA 80,80,80, 10,41 ,82, 0C, 00, C5 
240 DATA 00,00,00, 00 , C0 , 20 ,20,10, E0 
250 DATA 10,20,20,40,00,00,00,00,70 
00, 00, 00, 0C, 72, 41 ,81 ,82,87 
86,64,18,00,00,00,00,00,96 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 


00+HEXf < S 


260 

270 

230 

290 

300 

310 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DA I A 


00 , 00 , 00 , ÍC , 22 , 22 ,10, 08 , EA 
2 A , 3 E , 2 A 


I 


22, 00, 00, 00, 00, AC 
320 DATA 00,00,00,00,00,00,00,00,00 
330 DATA 00,00,00,00,00,00,00,00,00 
340 DATA 00, 00, 00, 0£, 11,11,20,68,75 
350 DATA 5 A, 94, 04, 03, 00, 00, 00, 00, AE 
360 DATA 00,00,00,00,00,00,00,00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 ,00 
OO , 00 , 00 , 06 , 09 , 08 , 24 , 6B , C? 


370 
380 
390 
400 
4 1 0 
420 
430 
440 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


90.20.08.10.00. 00 
00 , 00 , 00 , 00 , 00 ,80 
00 , 00 , 00 , 00 , 00,00 
00 , 00 , 00 ,00,03,14 

33.00. 18.20.00.00 


00,00,40 
80,00,80 
00 , 00 ,00 
64,90,23 
00,00,13 


n a 


00 , 00 ,00,00, 00 , 80 , 80 , 80 , 80 


31 


i 450 DATA 00,00 ,00,00,00, 
I 460 DATA 00, 0f?, 00 , 00, 00, 
j 470 DATA 24, F3, 00,00,00, 
j 480 DATA 00,00,00,00,00, 
j 490 DATA 00,00,00,00,00, 
| 500 DATA 00,00,00, 20 , í S , 
Í 310 DATA 64,14,03,00,00, 
j 520 DATA 00,00,00,00,00, 
í 530 DATA 00,80,00.00,00, 
i 540 DATA 00,00,00,10,00, 

; 550 DATA 24,08,09,06,00, 
j 560 DATA 00,00,00,00,00, 

! 570 DATA 80,80,00,00,00, 
í 580 DATA 00,00,00,08,04, 
í 590 DATA 2E , .1. .1. , 1 .1 , 0E , 00 , 
í 600 DATA 00 , 00 ,00,00,00, 

! 610 DATA 00,00,00,00,00, 
i 620 DATA 00, 00, 00, 22, 2A, 

! 630 DATA 10,22,22,10,00,' 
! 640 DA IA 00,00,00,00,00, 
j 650 DATA 00,00,00,00,00,1 
Í 660 DATA 00,00,00,08,10, 
i 6/0 DATA 3A, 44, 44, 38, 00,i 
j 680 DATA 00,00,00,00,00,1 
; 690 DATA 00 , 00 , 00 , 00 , 00 , < 
700 DATA 00,00,00,04,08,: 
7.10 DATA 92, BB, 48, 30, 00, < 
720 DATA 00, 00, 00, 00, 00, < 
730 DATA 00, 00, 00, 00, 0O, ( 
740 DATA 00,00,00,02,00,1 
750 DATA 93,94,60, 00,00,. <? 
760 DATA 00 , 00, 00, 00,00, « 
770 DATA 00,00, 00, 00,00, <1 
780 DATA 00,00,00,00,00,6 
790 DATA 92,67,00,00,00,0 
800 DATA 00, 00, 00, 00, 00, £ 
810 DATA 00,00,00,00,00,0 
820 DATA 00,00,00,00,60,9 
830 DATA 66,18,00,02,00,0 
840 DATA 00, 00, 00, 00, 00,0 
850 DATA 00,00,00,00,00,0 
860 DATA 00,00,00,30,48,8 


> , 00 , 00 , 00 , 00 
>,F'3,24,70,8E 
',00, 00, 00, 0A 
',00,80,80,80 
',00,00,00,80 
:, 00, 33, 90, 85 
,00,00,0© , 95 
,00,00,80,00 
,00,00,00,80 
, 20,90,68,08 
,00,00,00,67 
, 00 , 00 , 00,00 
,00,00,00,30 
, 94 , 5A, 68, 62 
,00,00,00,80 
, 00 , 00 , 00,00 
, 00 , 00 , 00,00 
, 3E,2A,08,34 
,00,00,00,36 
, 00 , 00 , 00,00 
, 00 , 00 , 00,00 
, 14,2D,0B,78 
,00, 00, 00, 6E 
,80,00,00,00 
, 00 , 00 , 00,00 
, 1A,04 ,6B , 40 
,00, 00, 00, 3 A 
.00,80,00,80 
■00,08,00,00 
.18,66,90, 7E 
00 , 00 , 00,00 
00 , 00 , 00,00 
00 , 00 , 00,00 
67, 92, 9F, 60 
00,00,00,60 
80,00,00,00 
00 , 00 , 00,00 
94,93,90,30 
00 , 00 , 00,02 
00,00,80,00 
00 , 00 , 00,00 
SB, 92,68, AE 


3 d 


t' 1' 1M' 1’ V 1' V r v 1' 0 V V. 1 



! 


I 


* i 


i 


» 


$ 


* 




♦ : 


• i 


i 


«■ ; 


«■ 


# ! 


870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
920 DATA 
930 DATA 
940 DATA 
950 DATA 
960 DATA 
970 DATA 
980 CAIA 
990 DATA 
1000 DATA 
1010 DATA 
1020 DATA. 
1030 DATA 
1.040 DATA 
1.050 DATA 
1.060 DATA 
1.0/0 DATA 
5.080 DATA 
1090 DATA 
1.100 DATA 
1110 DATA 
1120 DATA 
1130 DATA 
1.140 DATA 
1150 DATA 
Ü60 DATA 
1170 DATA 
í 1.80 DATA 
1190 DATA 
1200 DATA 
1210 DATA 


# 

e 


1220 DATA 


1230 DATA 
1240 DATA 


®! 1250 DATA 


1260 DATA 


1270 DATA 


1280 DATA 


04, IA, 08, ©4, 00, 00,0® ,0® r 60 
00,00,00,00,0© 00 - f, 0 ,00,00 

80, 00, 00, 00 ,00 ;00 »00' 00' Ge 
00,00,00, 38 ,44,44,3A,0B ,BA 

2D ,14,10, 03 , 00 , 00 ■ ®0 , 00 , A5 
00,00,00,0®, 00 ,00,007 00 » 00 

©0,80, 00, 00, 00 '00- 00.00,00 
©0, 00, 00, 40, E0, 40, 00, 00 , E.0 

00 , 00 , 0© , 0® , 00 » 00 ' 00 ' ’ 00 
00 , 00 , 00 , 00 , 00 , 00 . 00 ' 00 ' < ' <5 
00 , 00 , 00 , 00 , 00 , 00 ,00 r 00 7 0 0 

00, 00, 00, 00 "11,01 ,FE,01. , F6 
rr ,02, FF, 02, 00, 02, 01 ,01 ,23 

01 ,01 ,02,00, 02, FF, 02, FF, 13 

01 , FE, 01 , FE, 00, FE, FF, FF, DD 

FF, FF, FE ,00,00,81 ,00,81 ,05 
30,81 ,7F ,C0,7F,00,7F,30, 63 
7F , 7F ,7r,7F,30,7F.00,7F,D8 

D0 , 7F , 81 ,30,81,00,81 ,00,9D 

81 ,81 ,81 ,81 ,DC, 00,82,01,70 

1 E , 0 i , OC , 00 , 00 , 00 , 00 r 00 , 4Al 

00,00,00, l.F,00,00,00»0®>' 7t -' 

00 , 00, 00, 00, 00 , 00, 00 ,00,00 
00,00,00,00*^0,00, 00 , CE , B8 

CE, CE, FF, 0O, 18, 18, 18, 10, F4 
1C,ÍC,ÍC,0O,FE,06,06,FE,DC. 

E0 , E0 , FE , 00 , FF , 06 , 06 , / E , CE:. 
0E,0E, FE, 00,06,06, 06, FE, 00 

0E,0E,0E,00,FE,C0,C0,FF,FA 

0E , 0E , FE , 00 , FE ,00, C© , FE , CA 

CE, CE, FE, 00, FE, 06, 06, 0E, 18 

0E , 0E , 0E , 00 , FE , C6 , C6 , FE , 48 

E6.E6,FE,00,FE,EÓ,E6,FE,40 
06 , 06 ,FE,00,FD,C5,C5,FD,E.í> 
Ei, Ei, Eí, 00, 83, 83, 83,03,94 
C3 , C3 ,FB , 00 , F7 , 16, 16,F7,E.3 

97. 97. 97. 00, EF, 00, 00, 0F, 49 

0E , CE ,EE ,00, DF, 59, 59, DF, CC 

59. 59. 59. 00 . 00. 00 .0®r 00 » 
80 r 80 ,60,21 , 00, 00, CD, 53, B/ 
©O, íí ,00,40, AF,D3,98,1B,7F 
7A,B3,C2,6C,D3, 09,21 ,CD ,F A 


® j í 290 
® j 1300 

«1 13i « 
i .1.320 

® i .1330 

®; 1340 

«j í350 

Í 1360 
® I 1370 
®j 1380 
í 1390 
j 1400 

«■ : i4j0 
fS, 1420 


j 1430 
[ 1440 
| 1450 
1460 
1470 
1480 
I 1490 
! 1500 


>1 í 570 
,\ 1580 

,í 1590 
j 1600 

' | 1ÓÍ0 

Í 1620 

í í 630 
; 1640 
i 1650 

j 1660 

i 1670 
i 1680 
j 1690 
i 1700 


0 DATA 
0 DATA 
0 DATA 
0 DATA 
2 DATA 
2 DATA 
2 DATA 
2 DATA 

> DATA 
2 DATA 

> data 

> DATA 
' DATA 
' DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA I 

DATA 

DATA I 

DATA I 

DATA < 

DATA í 

DATA C 

DATA < 

DATA E 

DATA c 

DATA ( 

DATA (■ 


A D2, 06 , 0D , 3E, 0D , 90 , D3 , A0 , 63 
A 7E,D3, Ai, 23,05, C2,7B,D3,2D 
A C9,2í , C5,D2, 16,08, iE, 00, 12 
A 46, 23 , 4 B ,E5,D5,CD, 47,00,E9 
A Dí,Eí,iC, i5»C2,9íi , D3 , CD, 92 
A 63,03,01 ,80,02,21 ,03, D0, 71 
A 1 i, 00, 00, CD, 5C, €0,11 .00,88 
A 08 , 01 , 88 , 00 , 21 , DD , D2 , CD , 8F 
A 5C, 00, 21 ,80, 07, CD, 53,00, F5 
A 0ó , 20 . 3t , t 0 , D3 , 96 , 05 , C2 , 62 
' C2,D3,2í ,12, 04, CD, 53, 00, 3A 
' 06 ' r 3E , 1 1 , 90 , D3 , 98 , 05 , 22 
i C2 , D2, D 3 ,09,36,00,23, E5 , 2E 

i CD, 08, D9, El, 77, 23, 36, 00, 8B 

i 23 , E5 , CD, 08 ,D9 , Ei ,FE ,BF , El 
i DA,F5,D3,D6,BI , 77,23, E5, 37 
CD, 08, D9, Ei, 77, 23, E5, CD, BC 
08 , D9 , Ei ,77 , C9 ,21 , 00, E0 , EC 
06 , A 1 , 36,00,23, 05,C2,0A , 55 
D4 ,21 , 00 , E0 , 06 , 05, 3A , E7 , AO 
E:0 , 3C , 32 , E7 , F0 , E6 , 0F , 80 , B 7 
47 , C5 , CD , DC , D3 , 23 , E5 , CD , 4 4 
00, D9, Ei, Eó, 03, C2, 31,04,87 

3C, 77, 23, Cl ,C5,C2,2Í ,D4,C3 
C9 , ED , 7B , 06 , 00 , CD , 89 , D3 , 51 
CD, 76, D3, AF, 32, E7,E0, CD, DA 
05,04,21 ,00, 07, CD, 53, 00, 46 
CD , CC , D5 , 3E , D0 , D3 , 98 , 0.1. , 0EI 
58, 02, 0B , 79 , B0,CA ,5A , D4 , A3 
AF,CD,D8,00,B7,CA,4A,D4,C6 
CD,6F,D4, AF , CA , 43 , D4 , 3E, 23 
03 , 32, AA , E0 , 06,03,21 , E4 , 1C 
E0, 11, Aí ,E0,AF,77,23,05,B7 
C2 , 7C,D4 , AF , 32, A8, E0 , CD, 64 
08,D9,EÓ,07,47,C5,CD,08,64 

D9 , C í , E6 , 07 , 90 , 32 , A7 , E0 , B 6 

CD , 08 , D9 ,E6,07,47, CS , CD , 98 
08,D9,C1 ,F6,07 ,90, 32 , A4 , 96 
E0, 06,38, 21, AC, fc 0, 36 , 00 , 2E 
23, 05, C2,AE,D4,3E, 80,32,03 
A6,E0,3E,60,32, A3,E0,3A,5C 
AA, E0,B7, CA, E5,D4, CD, 98, 83 



34 



1710 
! i 720 




19 


C. 




2000 

2010 


2050 

2060 

2070 

2080 

2090 

2100 


'120 


D8 , CD , Eó , D -9 , CD , CC , D5 , CD , 7b. 
D6,D6,3A,A8,E0,B7 , CA , C6 , 30 
D4 , CD , 35 ,D8 , 3A , AA »E0 , 3D , 93 
32 , AA , E0 » 1 8 ,9E ,C9 , AF ,CB,83 
D8 , 00 , B 7 , C2 , F3 , D4 , 32 , A9 , 62 
E0,18,0F,4F,3A,A9,E0,Ai ,B9 
C2,02,D5,2F , 32 , A9 ,E0,CD,79 
90 » D6 , AF , CD , D5 , 00 , 47 ,3A,67 
AÍ,E0,4F,78,B7,CA,23,D5,ÍA 

FE , 0 1 ,CA,ÍD,D5,FE,05,D2,A2 
ÍD,D5,0C,18 ,06 , FE ,06 , DA ,57 
23 , D5 ,0D ,79 , 32 , Aí ,E0,1F,B0 
1 F,iF,E6,0F,4F,0ó,00,C5,22 
AF , CD , Df. , 00 , Cl , B7 , CA , 5D , 45 

D5 ,FE , 08 , CA , 43 , D5 ,FE , 03 , 68 

D2 , 5D , D5 , 21 , 83 ,02,09,09,91 
3A , A7 , E0 , 86 , EA , 52 , D5 , 32 , 2 1 
A7 , E0 , 23 , 3A , A4 , E0 , 86 , EA , 26 
5D , D5 , 32 , A4 , E0 , 2A , A2 , E0 , F7 
3A , A4 , E0 , 87 , D2 , 6B , D5 , 16 , 50 

FF, 18,02 , 16, 00 ,5F , 19 ,7C, 56 
FE , BF , DA , 80 , 05 , 7A , B7 , F2 , A0 

7E , D5,26 , BF , íü , 02 , 26 , 00 , 24 

22 , A2 , E0 , 2A , A5 , E0 , 3A , A7 , F5 
E0 , 87 , D2 , 91 , D5 , 16 , FF',18 , 0E 

02 . 1 6 . 00 . 5F , 1 9 , 22 , A5 , E0 , 76 

21 ,00 r 07,CD,53,00,3A,A3,B7 
E0,D6,05,D2, AR,D5,Có,C0,93 

D3 , 98 , 3A , A6 , E0 , D6 , 05 , 00 , D0 
00, 00, 00, 03, 98, 3A, Aí, E0, 07 
1F,ÍF,ÍF,E6,0F,C6,03, 17, 0E 
Í7,D3,98,3E,OE,O0,O0,O0,C3 
O0,D3,93,C9,DD,21,O0,E0, A9 
06, 17, AF ,32,AB,E0,C5,DD,EB 
7E,0ó,E7,C2,ED,D5,3A,AB,44 
E0,3C,32, AB,E0,06,28,05,5E 
C2, E7 , D5 , 18 , 60 , DD, 6E, 02 , 8F 
DD,66,03,OD,7E,05,B7 , 5F , 13 3 
F2, FF, D5, 16, FF, 18,02,16,10 
00, 19,7C,FE,BF,DA, 13, Dó, AA 
7A,B7,F2,ií,D6, 26 ,BF ,18,00 

02. 26. 00, DD, 75, 02, DD, 74, C2 


• ! 2130 




© 

© 

© 

© 

© 




2140 
2150 
2160 
2170 
2180 
2190 
2200 
22 1 0 
2220 
2230 
224© 
2250 
2260 
2270 
: 2280 
I 2290 
í 2300 
i 2310 
! 2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 


2460 

2470 

2430 

2490 

2500 




* 


2510 

2520 

2530 

2540 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


03,70 
66,01 
2E.D6 
19, DD 
D3 , 98 
D3 , 98 
D3 , 98 
DD , 1 9 
AB,E0 
3A , A6 
30,03 
08,47 
06 , 80 
03, BE 
8F , D6 
21, AC 
AF ,15 
A5 , D6 
64,7/ 

1 F , E6 
5F,8A 
A3,E0 
36,00 
1 A , 77 
DD, 21 
B7,CA 
DD , óE 
03,8/ 
18,02 
7 C , F E 
F2,0F 
00, DD 
3 D , I- E 
D3,?8 
DD,7E 
16, FF 
EB, 19 
7C,3D 
00,00 
00,00 
CC , 72 


■r> cr; 


,D3, 
, DD , 
, 16, 
,75, 
,DD, 
, 00 , 
, CD, 
,Ci, 
, FE, 
, 00 , 

> DD , 

» DD , 
,BA, 
,D2, 
,3E, 
,E0, 

, CA , 
,09, 
,23, 
,0F, 
,93, 
,77, 
,23, 
,CD, 
,AC, 

, 5 D , 
, 01 , 

, 5F, 
,16, 
,BF, 
r D7 , 
,75, 
,BF, 

, DD, 
,06, 

, 18, 
,DD, 
,03, 
,D3, 
,D3, 
,07, 
,D7, 


98, DD 
70,04 
FF , 1 8 
00, DD 
7E , 06 
00,00 
60, D6 
05, C2 

17, CC 
57, 3A 

96.06 
7E,0i 
DA, 8F 
8F,D6 
FF , 37 

01.07 
?C,D6 

18, F3 
3 A, Ai 
87,11 
57,36 
23, IA 
3A , A6 
00, D9 
E0 , C5 
D7 , 3D 
DD ,66 
D7,F A 

00, EB 
DA, 11 
2ó,Dr 

01, DD 
DA, 20 
6E , 04 
87, 5F 
02,16 
75,04 
93, 3E 
98, 3E 
93, 3A 
10,06 
11,07 


,60,00 
,B7,5F 
,02,16 
,74,01 
, 3D , 87 
, 00 , 3E 
,11,07 
,D6,D5 
, 05 , D4 
,A3,E0 
,87,87 
, BA , D2 
, D6 , DD 
,00, BB 
,A8,E0 
,00,16 
,2F,A6 
,B2,C8 
,E0,1F 
,A5,D2 
,00,23 
,13,77 
, E0 , 77 
,09,06 
, DD , 7E 
, DD , 77 
,02, DD 
,D6, 16 
,29, EB 
,D7,7A 
,18,02 
,74,02 
,D7,3E 
, DD , 66 
,D2,34 
,00, EB 
, DD ,74 
, 4C , 00 
, 0F ,00 
,A8,E0 
,06,28 
,00, DD 


, DD , A i 
, F2 , 7E 
,00,36 
,70,22 
,87,07 
, 06 , ES 
, 00 , AF 
, 3 A , D 7 
, 09, EF 
, 5F,8E 
,06,50 
, 8 F , B C 
,7E, 36 
, DA , 46 
,09,43 
,08, 1 A 
, CA , Dí 
,3E, ÍF 
, 1 F , 09 
, 8 3 , 3 D 
,3A,5B 
,23, Ai 
,23,50 
,08,00 
, 00,10 
,00,5E 
,70,35 
, FF , EE 
, 19,20 
,B7,8A 
, 26 , Bó 
,70,14 
,BF,32 


, 05,86 


,D7,F2 
,29,87 
,05,10 
,00, CD 
, 00,69 
, B7, 03 
,05,17 
, 19, 3F 


36 


2550 

2560 

2570 


2580 


! 2590 
i 2600 
' ! 2610 

e i 2620 
! 2630 
’ Í 2640 


2800 
aai® 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2Yi0 
j 2920 
: 2930 
j 2940 
I 2950 
! 2960 


Cl r 05 , C2 , DC ,D6 ,3E ,D0 , D3, 6B 
98,C9,FD,2i , 0 0 , E 0 , 06 , í 7 , C 7 
C5 , FD , 7E , 06 , E 7 , C A , BB , 07,75 
DD, 5E, 02, DD, 56, 05, 47 ,3E,C0 
03,90,87,87 ,Có,08,4F,FD,F3 
7E,0í ,BA,D2,BB ,D7 ,81,6F,A6 
CE ,00,95,67 , 7D 1 92 , 7C t DE , 5 A 
00 , DA ,BB,D7,FD,7E,03,BB,Í3 
D2,BB , D7 ,81 , BB , DA , BB ,D7 , 69 

DD,E5,FD,E3,CD,CB,D7,FD,BE 

Eí ,DD,Eí , í 1 ,07 , 00»FU , 19 
Cl ,DD,/E,00,B7,C8,05,C2,6B 

78 , 07 , C9 , CD ,F0,D3, DD, 36,30 

00, 00, FD, 46, 06, 04, 78, CD, F 5 
Bi ,D8,FE,04,DA,E5,D7,FD, A4 

36.06.00. 18.12,FD, 7/ ,06,5B 
CD , 0b ,1)9, F D ,77 , 04 , CD , 08 , A2 
D9 , FD ,77 ,05, CD, FR, D7 ,CV,46 
DD, 21 , 00 ,E0 ,0E ,17 , DD , 7E , 6A 

0Ó,B7,C2,24,D8,FD,7E,06, i2 
DD,77,06,FD,7F,01»DD,77, 10 
0i ,FÜ,7E ,03, DD ,77,03, CD, í9 
08,D9, DD, 77 ,04 ,CD,08, D9 , 0F 
DD, 77, 05, CV ,0D,CA, 2F , DO , 04 

11 .07. 00, DD, i9,i8,CF,3E,39 
03, CD, 81 ,D8,C9,2Í,AC,E0,E7 

i 1 , A5 , D2 , 06 , 08 , C5 , 36 , C8 , 6 7 

23.36.00, ED ,4B,A2,E0,7Í ,2E 

23,70,23, i A, CB ,2F, 13,77,22 
23,ED,4B,A5,E0,7i ,23,70, ED 

23,1 A, CB,2F, 77, 23,13,13,06 
i3,Ci,05,C2,3D,D8.CD,FR,48 
D8,0í,90,0í,C5,21,00,07,65 

CD, 53 , 00 , CD, CC , D5, CD , D6 ,EC 
D6,Ci,0B,7B,Bí ,C2,6C,D8,0E: 

C9,F5,E5,C5,2i,E4,E0,06,C3 

03 , B7 , 8E , 27 , 77 , 23 , 3F , 00 , 8E 
05,C2,8A,D8,CÍ ,Ei,Fi ,C9,71 
2Í ,18,04, CD, 53,00,21 ,E6,4/ 
E0 ,06 , 03 , 7E , iF , 1F ,1F,1F,13 

3C,E6,0F,D3,98,7E,3C,E6,4í 

i 0F ,D3,98,2B , 05, C2 , A3 , D8 , 03 


37 


I 2V70 DATA C9 *<ò6. r íl- r <ò7 r <ò7 y 08 y í & r 09, 5? 

* j 2980 DATA if/GA, 10, 0C, 10,00,00,06,52 
© ,' 2990 DATA 00 r 07 , 07 F 00 , í 0, 0 9 r i © , 0A 89 
I 3000 DATA 10, 0C, 38,00,00, 06,10,07,00 
j 3v)í0 DATA <37 y 08 y Í0 y 09 y í 0 y 0A y 10 , 0C r (J7 
•j 3020 DATA 1.0 , 0D, 00,7E , 23, D3, A0 , 7C , 1 3 

®i [> A I A 23,D3, Ai ,05, C2, E3 , D8 , C9 , 0C 

- i 3040 DATA cíi , B9 , D8, 06,07,C3,E3, D8 , DD 
i 3050 DATA 2i,C7 , D8, 06 , 0/ , C3 , F3 , D8 , F9 

•| üti DATA 2i,D5,DB,0ó,07,C3,E3,D8,15 
• £ A I A 3A,E8,E0,47,i7,i7,E6,FC,ED 
i 3080 DATA 4F,Í7,O0,81,4F,ED,5F,81,BB 
®j 3090 DA I A 32, E8, E0,C9. 67 , 54 ,59,50,00 
01 3100 DATA 45,20,20 ,20,20,F8,BF,52, 9F 
DATA 4f# r 4E r 20 y 20 7 20 , 20 y 20 r 3F,F9 
3i20 DATA C0, 44 ,45 ,40,20,20,20 ,20, 87 
^13 30 DATA 20,52,00,44,41,54,45,20,34 

© 3140 DATA 20,20,20, A0 , C4 , 54 , 49, 4D,73 

« ° A [ A 45,20,20,20,20,7C,C5,52,E0 

3160 DA I A 4 j , 4E , 41 , 4D , 45,20 ,20 , 3F, 0? 
\%\ 7 * DATA C0, 45, 32, 41, 53, 45, 20, 20, 61 

& ! CÍ180 DAT A 2 ô . FiP. a* «?«=: m 


I , 3 "-, í0 DAIA 45,52 ,49 , 46 , 59 y 20 r 20, 8B r 9i 
k j 3r>20 DATA C0 , 4D , 4F , 44 , 45 , 20, 20 , 20 , 50 
,13230 DATA 20, B5, C8, 42, 41 ,53,49, 43. 38 
í 3c 40 DATA 20 , 20 , 20 , F4 , C8 , 46, 4F, 52 ', D5 
' 3250 DATA 4D , 4 1 , 54 , 20, 20 , F4 , C8 , 0D , 83 
i 3260 DATA 0A , 49 , 6E ,73, 65, 72, 74 , 20 , 83 
, 3-70 DATA 64 , 69 ,73,60,20,77,69,74,24 

ooff n?r A 68 ' ?0 ' 6 2,6 í,74,63, 68,20,00 
■ DATA 66,69, 60, 65, 24, 01), 0A, 61 ,60 

\ÍÍ?1 níT A áE ' 64 ' 20 ' 73 ' 74 ^2,ó9,6E,89 

! 3310 DATA 65,20, 61 , 6E , 79 , 20 , 6B , 65 , B2 

’3?90 SSIÍ 79,20,7 7 ,6O,65,6E,20,72,BB 

,3330 DATA 6a , 6 l , 64 , 79 , 0D , 0A , 24 , 53 , 48 
3340 DATA 74 , 72 , 69 , 6B , 65 , 20 , 6 1 , 20 , 9F 

%%*l ? A I A 6B, 65, 79, 20, 77,68,65,6c, 16 
! 33 J 0 ^ mTA 20,72,65,61 ,64, 79,20, 2F, Dl 

.•3370 DATA 20 , 2E , 2© , 2E , 20 , 24 , 49 , 6E , 7B 




SQUASH 3D 


Este não é um jogo como os outros, pois é tri- 
dimensional. 0 jogo pode ser entre dois jogadores hu- 
manes ou entre um humano e o micro. 

Os jogadores jogam a I ternadamente movendo uma 
raquete e lançando uma bola contra a parede de fundo. 

A visão tri-dimensional da quadra facilita as 
jogadas. Para iniciar o jogo é necessário pressionar a 
barra de espaços. Para rebater a bola, basta colocar a 
raquete om sua direçic. 

Se você preferir, poderá usar o joystick ao 
inves do teclado. 


DIGITAÇÃO 


Tome cuidado com as linhas DATA ' s . Obviamente 
elas constituem a parte mais "chata" do pregrama e 
também a mais perigosa. Tudu o desenho imóvel da tela 
e definido com os dados dessas linhas. Se voce digitar 
algumeado errado, o desenho será imperfeito. 

FIGUKA 4.1 - Progra»* SQUASH 20. 


r * 

r x 




SQUASH 3D 
de: Y e h Y u S a n g 




í 


1000 
1010 
1 020 
,1030 
1040 ’ x 

■ 1050 DEFINI A-Z 

10Ó0 DIM X < 3 ) , Y ( 3 ) , KD < é3 > , KX < 8 ) , K Y ( 8 ) 
i*7* SCREEN í,2:WIDTH 32=C0L0R 15,i,i:KE 

1080 GOSLIB 1830 
1090 CLS 

1100 INPUT "Jogador cs < 1 ou 2 ) " ; : T^VAL ( 
Al ) 

1110 IF T<i OR T >2 THEN 1100 

1120 T=<T-l)MOD 2:XCT)=0:Y( T)-0sX( 3 T> =0 
= Y(3- T >~-0 

15,30 IF T<>0 THEN 11BO 
1140 T=3 

lifj0 INPUT "N i vel < i-5)";A$:L = VAL(Af>; 
1160 IF L< 1 OR L > 5 THEN Ü50 
1170 L- ( ( L-l ) MOD 5 ) *3 
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1 í Q0 TMPÜT "Jogador í : Teu l ado ( i ) , Joy < 2 > 

; A9i:DU=VAL<A16>-i 

íí?0 IT DV<0 OR DU>1 THFN 11B0 

1200 R=T S 01=0 5 02=0 

1210 GOSUB 17?0:PX=0:PY=e:SC=9:GOSüB .«9 

0 

1220 GOSUB 2200 

1230 LOCATE 5,0=PRINI "Jogsdor-2 ? 

1240 LOCATE ió, 0:PRINT "Jogador-i ; 

1250 GOSUB 173C sGOSUE 19 60 

1260 X=X+DX:Y=Y+DYsZ=Z+DZsDY=DY+i 

1270 IF ABS <X > >240 THEN X=SGN ( X ) *480-- X 5 D 

X*.-"DXs GOSUB 1540 

1260 IF Y >240 THEN Y=480~Y s DY-~DYs GOSUB 

\ ^4 M s F = F + í s I F F)i THEN Í4<i0 

1290 IF Y<-240 THEN Y=-480~Y : DY=~DY s GOSU 

E! 1540 ... „ 


1300 IF Z >24 THEN Z= 4 G Z • DZ“-DZs R-T = F =-0 s 

GOSUB 1540 , __ ... „ TU 

1310 IF T MOD 2 THEN 1360 EuSE IF T«c. TH 

1320 3 PX-PX+L*SGN(X-PX):PY=PY+I *SGN(Y»PY- 


2 THEN 1360 ELSE IF T -2 


11330 IF ABS(PX-X) >ABS<PY-Y' 5 > THEN D-=<SG 
i N(PX-X)+ 3)#2 i ELSE D=< SGN< Y-PY-- 5 ) +2 ) #«.- 

í j - 

i 1340 GOTO 1370 
j 1350 D-STICK ( 2 ) s GOTO 137 © 
í j 360 D=ST I CK < DO ) 

i 1370 IF D -0 THEN 14 ©© ELSE PY-PY+KY<D> *P 
j Y~p x+k X ( D ) 

í 1330 IF ABB(PX ) >240 THEN PX=SGN (PX ) *240 
Í 1390 IF ABS ( P Y ) >240 THEN PY-SGN <PY ) *240 
! 1400 UOSUB i 590 : GOSUB 163 e 
í 1410 IF Z >0 THEN 1260 

! IF ABS(PX-X) >60 OR ABS(PY-Y >>60 THE 

! N 1490 ELSE IF F =0 THEN DY=-DY +5 
i 1430 SOUND 0 , 255 1 GOSUB 1 550 s DZ=-D/ s DY=DY 
! + < Y-P Y > \ 4 -i = DX-DX+ (X— PX ) \4 
í 1440 IF ARS(DY ) >20 THEN DY=SGN < DY > *20 

i 1450 F=iíX(T)=PX:Y<T)=FYíT= 3 -T:PX=X(T> :F 

í Y=Y<T> «GOSUB 1590 


i 1460 IF T MOD 2 I HEN SC=9 ELSE SOÍ 5 
| í 470 GOTO 1260 
| 1430 P X- X ( R ) s P Y~Y < R > 

i 1490 IF R MOD 2 THEN 02-02+i ELSE 01=01+ 

í ^ 

Í 1500 T=KSGOSUB 1730SIF Oi >15 THEN í 670 
i 1 5 1 0 LOCA TE 6,2 SPRINT "Jogador-"?STR*<2~ 
! R MOD 2 ) f " F ALTA ! " s GOSUB 1760 
1520 LOCA TE 6, 2» PRINT TAD<24>? 

1530 GOSUB 1790= GOTO 1460 
1540 BOI IND 0,120 
1350 SOUND 1,0 = 6 O LI NU 8,9 
1560 FOR W~ 1 TO 40SNEXT 
.1570 SOUND 8,0 
1580 RETIJRN 

1590 P 1 = P X # 4 \ 1 0 = P 2 ==PY«4\10 

3600 PUT SPRITE 4, < Pl + lôO , P2+84 ) , SC , 8 = PU 

T 8PRITE 3 , <P 1 + 1 00 , P2+100 ) , SC , 9 

3610 PUT SPRITE ó , ( P 1+1 16 , P2 +84 ) , BC , 1 0: P 

UT SPRITE 7 , < P 1 + í í 6, P2+1 00 > , SC, 3. 1 

1620 R ETLJRN 

3.630 SD=KD (2+25 ) = XY=KD ( 2 ) 

1640 PUI SPRITE 0, (X*XY\2004-í08 r Y*XY\200 
•♦92) , 15, SD 

1650 PUT SPRITE 1 , <X*XYN200+108,240#XY\2 
00+92 ) , 1 , SD 
1660 RETURN 

1670 L. OCA TE 8,3 = PRINT "Jogador-^STRS ( (O 
2< 01 ) +02 > ; " VENCEU!"? 

1680 LOCATE 8,4=PRINT "DE NOVO LS/N3" 
1690 S$= I NKEYS 8 IF Si-"" THEN Í690 
1700 IF S9)-""S" OR S%~" b" THEN RUN 
1710 TF S<& = "N" OR SS="n" THEN SCREEN 0:E 
ND 

1720 GOTO 1690 

1730 LOCATE 8,1 SPRINT 02? 

1740 LOCATE 19,1:PRINT 01? 

1750 RETURN 

1760 LOCATE 10,5=PRINT "SAQUE !" 

1770 W0-5TR I tí < 0 ) SUíssSTRIG(í) :U2— STRIGC2) 
1780 IF W0+W1+W2 THEN LOCATE 10,5: PRINT 
TA8 (20) : RETURN ELSE 1770 



'\ 



1790 F=0:X=0: Y=~60 

1800 D X = < I NT< R ND ( 1 ) * 4 ) -« i ) * < I NT < R ND ( t ) * 2 
* 2 - 1 ) 

1810 Z=0!DZ=1SDY»-1NT<RND(Í>*3> 3 

1820 RETURN 

1830 REETORF 

18-40 FOR I--0 TO íí 

1830 M 

1 Üó0 FOR J=1 TO 32 

1870 READ Bíl> = AS-A5+CHR5 < UAL <"&H"+B9>> ) 
1880 NEXT 

1890 SPR1 IES>( I )-Aí 

1900 NEXT 
1910 RESTORE 2780 
1920 I»4H8C:eOSUB 2250 
1930 I “&H8D : GOSUB 2250 
1940 I=&H8 E:ü() 8UB 2250 
1950 I»«H8F*eOSUB 22S0 
i 1960 I -&H8A : GOSUB 2250 
I 1970 I*AH8?s GOSUB 2250 
! 1900 I“&H86 sGOSUB 2250 
í 1990 I=&H85! UOSUB 2250 
! 2000 FOR 1=0 TO 31 
• 2010 UPOKE ÃH2000+I,«HF 4 

i 2020 NEXT 

\ 2030 UPOKE &II201D ,&H30 
2040 RESTORE 2860 
2050 I--&HE8 : GOSUB 2250 
2060 I=&HE4 : GOSUB 2250 
j 2070 1=SHE5 ; GOSUB 2250 
I 2080 UPOKE &II201C ,&H47 
! 2090 I-&HE0 : GOSUB 2250 
\ 2100 I=&HE1 * GOSUB 2250 
2110 I=RHE2s GOSUB 2250 
2120 l=SHE3s GOSUB 2250 
2130 RESTORE 3090 
I 2140 FOR 1=0 TO 63 
’Í 2150 READ B4 : KD < I > “VAL ( &H 
, I 2160 NEXT 

! 2170 FOR 1=1 TO B 5 READ KX<I)*NEXT 
J | 2180 FOR 1 = 1 TO 8s READ KY<I)=NEXT 


) 
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2190 RETURN 
P.200 R ESTORE 293© 

2210 POR I & H 1800 TO SH1AFF 
2PP0 R EA D BSíVPOKE I , UAL 
2230 NEXT 

224® RETURN 
2250 11-1*8 
22ó0 FOR J-II TO II +7 
2270 READ BHVPOKE J, VAL<"&H"+Bi> 
2280 NEXT 
2290 RE I UR N 

2300 DATA 07 r i F , 3F , 7F' , 7F , FF , F F , FF 
23 í © DATA FF , FF r FF r 7F , 7F , 3F , í I- , 07 
2320 DATA C0 , F8 , FC, FE , FE, FF , FF , FF 
2330 DATA FF , FF , FF , FE , FE , FC , FR , C0 
2340 DATA 00,07, 0F , i F , 3F , 7F , 7F , 7F 
2330 DATA 7F , 7F ,7F, 3F, ÍF, 0F , 07 , 00 
2360 DATA 00 ,E0 , F0 , F8, FC , F E , FE , FE 
í 2370 DATA FE , FE , FE , FC , F8 , F0 , E0 , 00 
2380 DATA 00, 00, 07, 0F , 1F , 3F , 3F , 3F 
2390 DATA 3F , 3F , 3F , í F , 0F ,07,00, 00 
2400 DATA 00 , 00 , E0 , F 0 , E 8 , FC , FC , FC 
2410 DATA FC,FC,FC,F8,F0,E0,00,00 
2420 DATA 00 , 00 , 00 , 07 , 0F , 1 F , 1 F , í F 
2430 DATA iF, ir , iF , 0F, 07, 00 , 00 ,00 
2440 DATA 00 , 00 , 00 , E0 , F0 , F8 , F8 , F8 
2450 DATA F8 , F8 , F8 , F® , E0 , 00 , 00 , 00 
2440 DATA. 00 , 00 , 00 , 00 , <d3 ,07 r 0F ,0F 
2470 DATA 0F , 0F , 0/ , 03 , 00 , 00 , 00 , 00 
•480 DATA 00,00,00,00, co , E0 , F0,F0 
2490 DATA F0 , F0 , E0 , C0 , 00 ,00,00,00 
2500 DATA 00,00,00,00,00,03,07,07 
2510 DATA 07 , 07 , 03 , 00 , 00 , 00 ;00 , 00 
2520 DATA 00 , 00 , 00 , 00 , 00 , C0 , E0, E0 
>530 DATA E0,E 0,80,00,00, 00, 00,00 
•5j0 DATA 00,00,00,00,00,00,01,03 
!550 DATA 03,0.1,00,00,00,00,00,00 
Í560 DATA 00,00,00,00,00,00,S0,C0 

1570 DATA 00,80,00,00,00,00,00,00 
>580 DATA 00,00,00,00,00,00,00,01 
:S90 DATA 01,00,00,00,00,00,00,0© 


2440 

2450 

2440 

2470 


2530 


i 2560 
! 2570 


! 

2600 

DATA 

•| 

2610 

DATA 

& i 
1 

2620 

DATA 

& i 

2630 

DATA 

i 

* 

M. 1 

2640 

DATA 

£ 1 

2650 

DATA 

•| 

2660 

DATA 

& i 

2670 

DATA 

1 

Hf 1 

2660 

DATA 

& 1 

2690 

DATA 

$ j 

2700 

DATA 

1 

® ! 

2710 

DATA 

g. . i 

2720 

DATA 

• | 

2730 

DATA 

• i 
1 

2740 

DATA 

«■ ! 

2750 

DATA 

i 

«. i 

2760 

DATA 

i 

2770 

DATA 

i 

2780 

DATA 

«• I 

2790 

DATA 


2800 

DATA 

■ 

1 

1 

i 2810 

DATA 


í 2320 

DATA 

i 

* ! 

| 2830 

DATA 

jr. I 

! 2840 

DATA 

& ! 

i 2350 

DATA 

• 

2B60 

DATA 

A 

2870 

DATA 


2880 

DATA 

4» 

1 2890 

DATA 

• 

! 2900 

DATA 


1 2910 

DATA 


j 2920 

DATA 

2930 

DATA 

• 

2940 

DATA 

& : 2950 

DATA 

/Kr 

2960 

DATA 


2970 

DA I A 

• 

2900 

DATA 


2990 

DATA 


3000 

DATA 

*6- 

3010 

DATA 


&& , 00 , 00 , 00 , ©0 ,00,00, 80 
G0 , 00 , 00 ,00,00, 00 , 00 , 00 
00, 7F,7F ,60,60,60,60,00 
60,60, 60 r 60 ,60,60,60, 60 
00, FF , FF ,00,00,00,00, 00 
00,00,00,00,00,00,00,00 
60,60 , 60 , 60 , 60,60 ,60,60 
60,60,60, 60 , 60 , 7F ,7F , 00 
00 , 00 , 00 , 00 , 00 , 0 0 , 00 , 00 
00, 00, 00, 00, 00, FF, FF, 00 
00, FF ,FF ,00,00,00,00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00, FE, FE, 06,06,06,06,06 

06.06.06.06.06.06.06, n í> 
00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00 , 00 ,00 , 00,00 , FF , FF , 00 
06,06, 0'6 ,06,06,06, 06 , 06 

06. 06. 06. 06. 06, FE, FE, 00 
FF, 80, 80, 80,80,80,80,80 
80, 80, 80, 80, 80, 80, 80, FF 
FF",0í ,0i ,0í,0í ,0i , 0i ,01 
01, 01, 01, 01, 01, 01,01, FF 

80,30,80,80,80,80,80,80 

0i,0í,01,0í,0í,0í,0í,0i 
FF, 00, 00, 00. 00,00,00,00 
00, 00, 00, 00, 00, 00, 00, FF 
FF, FF , FF , FF, FF, FF, FF, FF 
FF, FF, FF, FF, FF, FF, FF, FF 
00 , 00 , 00 , 00 , 00 , 00 , 00,00 
FF, 7F , 3F ,1F,0F ,07 , 03 , 0Í 
Oi ,03,07, 0F,iF ,3F,7F, FF 
FF,FE,FC,F8,F0,E0,C0,80 
80,C0,E0,F0,F8,FC,FE,FF 
E5,E5,E0,E4,E4,E4,E4,E4 
E4,E4,E4,E4,E4,E4,E4,E4 
E4,E4,E4,E4,E4,E4,E4,E4 
E4,E4,E2,E5,E5,E5,E5,E5 
E5,E5,E5,E0,E4,E4,E4,E4 
E4,E4,E4,E4,E4,E4,E4,E4 
E4,E4,E4,E4,E4,F4,E4,E4 
E4,E2,E5,E5,E5,E5,E5,E5 
E5,E5,E5,E5,E0,E4,E4,E4 



% 

$ 


* 


* 

* 


j 3020 
j 3030 
j 30-4O 
S 2050 
i 3060 
; 30/0 
! 3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 

3170 

3 1 B 0 
3190 
3200 


* 


«■ 




j 3210 
í 3220 
Í 3230 
! 3240 
! 3250 
*i 3260 
3270 
3200 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
Í 3410 
•1 3420 
3430 


ti* 




DAT A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DA IA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAI A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


E!4 , E4 , E4 , E4 , E 4 , E'4 , E4 , E4 
E4 , h 4 , F4 r E 4 ,E4, E4 r E4 ,E4 
E2 , ES, ES , ES , E5, E5 r E5 , E5 
E 5 , E5 , E5 , E5 , E5 , E0 , E4 , E4 
E4 , E 4 , E4 , F. -4 , E4 , E4 , E4 r E4 
£A , E4 , E4 , E4 , E4 , E4 , E4 , E2 
1 5 , E5, ES , ES, ES , ES , ES , ES 
ES ,E5, E5 , ES , ES , ES , E0 , E4 
E 4 , E! 4 , E 4 , E4 ,E4,E4,E4,E4 
E4 , E4 , C4, E4 , E4 , E4 , E2 , ES 
ES , ES , ES , ES, ES , E5 , ES , ES 
ES , ES , ES , ES , ES , ES , ES , C0 
E4,E4,E4,E4,E4,E4,E4,E4 
E4 ,E4 , E4 , E4 ,E4 , E2 ,F5, ES 
ES, ES, E3, ES, ES, E5, ES, ES 
ES , E5 , E5 , E5 , E3 , E5 , E5 , ES 
E0 , EA , E4 , E4 , E4 , E4 , E'4 , E4 
F 4 , E4 , E4 .. E4 , E2 , ES , ES , ES 
ES, ES, ES, E5,E5,ES, ES, ES 
E5r ES , ES , ES , ES „ E5 , E5 , ES 
E5,E0,E4,E4,E4,E4,E4, E4 
E4 , E4, E4 , E2 , ES , ES ,E5 , E5 
ES, ES, ES, ES, ES, ES, ES, ES 
ES, ES, ES, ES, ES, ES, ES, ES 
ES , ES , E0 , E4 , F'4 , E4 , E4 , E4 
E 4 , E 4 , E 2 , E 5 , E 5 , E 5 , E S , E S 
F5, ES, ES, ES, ES, ES, ES, ES 
ES, ES, ES, ES, ES, ES, ES, ES 
Ff. , ES, ES , E0 , E4 , E4 , E4 , E4 
E 4 , E 2 , ES , E5 , E5 , E5 , ES , ES 
ES, ES, ES, ES, ES, ES, F5, ES 
ES , ES , ES , ES , ES , ES , ES , ES 
ES , ES , ES , ES , E'0 , E4 , E4 , E4 
E2 , ES , E5 , ES , ES , ES , CS , ES 

ES, ES, ES, ES, ES, ES, ES, ES 

ES , ES , ES , ES , F5, E5,E5, ES 
E.J , ES , ES, E:.S , ES , E8 , E’8 , E8 
ES , ES , CS , ES , E5 , ES , ES , ES 
ES , ES , ES , ES , ES , ES , ES , ES 
ES , ES , ES , ES , ES , ES , C5 , ES 
ES , ES , ES , ©5 , ES , E8 , EB , E8 
ES , ES , ES , ES , ES , ES , E5 , ES 
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E5 , E5 , E5, E5, E5 7 E5 , E5 , E5 
E5 , E5 , E5, E5, E5,E5 ,E5 ,E5 
E5,E5,E5,t5 7 E5,E8,E8,E3 
E5 , E5 , E5,E5, E5 ,E5 ,E5 r E5 


1 

3440 

DATA 

1 

345© 

DATA 

$ J 

3460 

DATA 

* ! 

i 

ííi ^ 

3470 

DATA 

3480 

DATA 

V I 
1 
f 

3490 

DATA 

* j 

3500 

DATA 

•I 

1 

3510 

DATA 

3520 

DATA 

C* J 
1 

3530 

DATA 

* i 

3540 

DATA 

I 

€* ! 
1 
1 

3550 

DATA 

3560 

DA I A 

& 1 

3570 

DATA 

* ! 
ft 

3580 

DATA 

$ ! 

3590 

DATA 

• ! 

| 

3600 

DATA 

3610 

DAI A 

•i 

3620 

DATA 

«■ i 
! 

/r. I 

3630 

DATA 

3640 

DATA 

& ! 
* 
1 

3650 

DATA 

tf \ 

3660 

DATA 

1 

3670 

DATA 


3680 

DATA 

tf 

3690 

DATA 

«• i 

3700 

DATA 

0 j 

3710 

DATA 

1 

1 

1 

3720 

DATA 

^ 1 

! 

3730 

DATA 

• ] 

3740 

DATA 

« í 

3750 

DATA 

3760 

DATA 

tf ! 

3770 

DATA 

« 

| 3780 

DATA 

tf 

| 3790 

DATA 

tf. 

i 3800 

DATA 

tf 

3810 

DATA 

tf 

3820 

DATA 

tf 

Jf. 

I 3830 

DATA 

| 3840 

DATA 

tf 

! 3850 

DATA 


E5,E5,E5 r E5, 
E5 , E5 , E5 , E5 , 
E5,E5 7 E5 7 E5 7 
E3 , E5 , E5 , E5 , 
E5 , E5 r E5, E5 , 
E5 , E5, E5, E5 , 
E5 , E5 r E5, Ei , 
E4 , E3 , E5 , E5 7 


E5,E5,E5,E5 
E5,E5,E5,EÍ5 
El ,E4,E4 7 E4 
E5 r E5 ,E5 , E5 
E5 , E5 ,E5 7 E5 
E5 7 E5 7 E5 7 E5 
E4,E4,E4,E4 


C5 , E5 r E5 j E5 
E5,E5,E5 r E5,E5,E5,E5,E3 
E5 ; E5 7 E5 7 E5 7 E5 7 E5,E5 7 E5 
EH , E5, Eí , E4 , E4 ,E4 7 E4 , E4 
E4 r E4,E3, E5,E5,E5,E5,E5 
E5 , C5 7 E5 , E5 , E5 , E5,E5 , E5 
E5 , E5 , E5, E5 , E5 ,E5 7 E5 , EH 
E5, ElrE4,E4,E4 r E4,E4,E4 
E4,E4,E4,E3,E5,E5,E5,E5 
EH r E5 , E5 „ E5 , E5 „ E5 „ E5 , EH 
E5 , E5, E5, E5 ,E5 r E-5 ,E5, EH 
Ei 7 t4 7 E4 7 E4 7 E4 7 E4j E4 , E4 
E4 7 E4 7 E4 , E4 , E3 7 E5 , E5 , EH 
E5, E5 r E5 7 E5 f E 5»E5 , E5 7 E5 
EH 7 E5 7 E5 7 E5 7 E5,E5, E5 , E í 
E4 7 E4 7 E4 7 E4 7 E4 7 E4,E4,C4 
E4 7 E4 7 E4 7 E4 7 E4 7 E3 7 E5 7 EH 
E5, E5, E5 ,E5 ,E5 ,E5 7 E5 „ EH 
E5,E5 r E5,E5 7 E5 7 E5,EÍ ,E4 
E4 7 E4 7 E4 7 E4 7 E4 7 E4,E4,E4 
E4 7 E4 7 E4 7 E4 7 E4 7 C4 7 E3 , EH 
bH 7 EH 7 E5 7 E5 7 E5 7 E5,EH 7 E5 
E5,E5 7 E5 7 E5 7 E5 7 EÍ ,E4 7 E4 
E4 7 E4 7 E4 t E4 7 E4,E4,E4 7 E4 
E4 7 E4 7 E4 7 E4,E4,E4,E4 7 E3 
E5,E5 7 E5 7 E5 7 C5 7 E5 7 E5 7 E5 
E5 7 E5 7 E5 7 E5 7 E1 7 E4,E4 7 E4 
E4 7 E4 7 E4,E4 7 E4 7 E4,E4 7 E4 
E4 7 F4 7 E4 7 E4 7 E4 7 E4,E4 7 E4 
E3 7 E5 7 E5,E5,E5, EH , E5 7 E5 
E5 7 E5 7 E5 7 Eí , C4 , E4 , E4 7 E4 


* : 3060 DATA E4,E4,E4,E4,E4,E4,E4,E4 
$,13870 DATA E4 , E4 , E4 , E4 , E4 , E4 , E4 , E4 
I 3SS0 DATA E4,E3,E5 P E5 r E5,ED,E5 r E5 
i 3B9C DATA 50 r 3C, 32 , 28 , 26 , 2í , iE , i B 
•Í39®« DATA 18 , í 6 , í 5 , í 3 , í 2 , íí , 1 0 , 0 F 
Ç.i39íe DATA 0F , 0E , 0E , 0D,0D , 0C, 0C p 0B 
! 392C DATA 0A , 00, 02 , ©3, 03 , 04 , 04 , 05 
Í 393© DATA 05,05,05,05,00,06,06,06 
^ ■' 3940 DATA 06,06 ,07,07,07,07,07,07 
•!39b0 DATA 07.07,07,83,93,93,93,93 
! 3960 DATA 93 , í 3, 93 , 83 , 93 , 93, D3, 83 
I 3970 DATA 0,20,20,20,0,-20,-20,-2. 
^ i 3980 DATA -20,-20,0,20,20,20,0,-2' 








SIMBA 

Você é um cavalheiro andante e sua espada má- 
gica esta quebrada. Para consertá-la você deve ir a 
uma cidade que é dominada por um leão feroz e faminto. 

, Você exigiu 10 espadas mágicas para capturá- 
lo. porem, acabou ficando sem elas. pois os materiais 
necessários para construí-las estavam em falta na ci- 
aade. Estrategicamente, você resolveu mudar dc pleno e 
resolveu espalhar alimentos com soníferos pela cidade. 

Seu objetivo é atrair o leão para tazê-lo co- 
mer um quantidade pré-determinada de alimentos e de- 
pois leva-lo para uma jaula. Só então é que você pode 
ra ir para outra cidade. 

BOft SORTE! I I 

DIÜ1IAÇS0 

Este jogo não é dos compridos e cansativos 
L^.?? sta di9i,ar com cuidado e tudo bem. BOM 

c . a rn» Cuídaíl com 3 parte d0 título, linhas entre 
b30 e 560. 

Figura 5.1 - leia de abertura do prcgrasa SIM3A. 
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figura 5.2 - Progra«a SIMBA. 


i : UIDTH32 • RR=RN 


* 


1 REIM BIMBA 

2 REM 

3 REM de Yeh Yu Sun 9 
10 7 

20 SCR EF.Nl , 0 , 0 : COLOR í 5 , i 
D ( TIME) 

30 DEFINT A— Z * H = 100 * KEYOFF sDIMF ( í 4 , 21 ) ■ I O 
R [ = 1102 : S'h FOR J-1T08 :REAUA* : SS=S*+CHR 

%<OAi ( ,, *H"+Att) ) *NEXTJ8SI»KITE*<I >=SS8NEXT 
40 DATA3C , 7E, FE, 7F , DB ,DB , 7E , E7 , 5D , 8E , 2 A , 
A A, BE, SC, 24, 77 

43 FOR N --336T 0343 1 READA: OPOKEN , A : NE.XT 
DAI A 1,3,7,15, 7 ,3,1,0 

E r OR A--ÍT02- READAÍb :F0RB r -0T07: READB9» ; OPO 
KEOAI <"&H /, +A56)*8+B,VAL<"&H"+BS> : NEXTB , A 
M DATA ü 1 , 00 , DF , DF , DF , 06 ,FB ,FB , F r B , 85, 03 
,©3,3A,74,7A,FE,FE,78 
/0 ’ 

00 VPOKE&H2016 ,&HD7 s OPOKESH2010 , fiH?i '-OP0 
KE8Í97 , AH69 Z0R0KEÜÍ92 ,&Hói 
90 CL8 ! GOBUB520 sCLS 

. 1.00 S-0 sR*=í sONGPR ITEGOSUB330 : SPR I TFON ! ON 
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30 


// 


0 


STKlU(»OSUB330«6TRIG<©>ON*KEYi ,"SCREEN® 

CHR9<13> 

110 Cl SsTI=0sCS ss 7sGOSUB450sFORA=2fOr.0!FO 

RB = 1TO30 • L.OCATEB , ASPR INTCHRS < 177) sNEXTB , 
A : E r 0RA-4T0í 9 * rORB=2T027STEP IMT < RND< 1 )*2+ 
í ) : LOCATEB , A : IFRND < í ) > .3THENPRINT" 

120 NEXTB, A 


RY=RND ( 1 )*12+4 : RX-RND ( 1 > *20+3 

: L0CATE26, 5 SPRINT 


15: 




// 


130 

140 X"27 1 Y=5 : 0=27 s T 
" : 1.0CATE26 , 15 SPRINT" 

150 FOR A=iT0R + 4 sLOCATERND C i > *20+3 , RND< í ) 
*15+4 sPR I NTCHR T> < 1 33 ) : NEXT A : M=R +2i 
460 I 0CATE23,RY:PRINT" "+CHRS< i >+CHRÍ <82 
)+CHRS>< i )+CHRS(89) +" " : LOOATE23 , R Y+l ! PRI 
NT" 3 "sL 0CATE23,RY*2 SPRINT" "+CHRI ( 1 ) 
+CHRS (81 >+CHRSi< í )+CHRf <91 > < 

170 ' 


tt 


// 


í 80 GOSUB450 


51 


* i ^;is?ir 8 ’' í, - <n *~ 

«. í 200 Tl-TI + í 

®ísECsír i " >4 ® eTHrNt ’ LAY " V1535Li5F " ,CS!Bl 3t-L 

* I i0 8 M3THE N E X=xfS!?, e ;- X ;v y ‘ 32> = IFU1 < 

11 í Tf X=RXANDY=6TliiTNG0SUB496 

> ?*‘® IFVle*H3THEN5«e 
í | IFX=25ANDY«RY + iTHEN340 

, ! ^ ™ D < 1 > < • 3ANDW >2AND0 >X j - < R ND ( i)( 

i 

i unn,-j7l ' TTsIfr VPEEK(*Hí8®04-U+T*32> < >'•}?/., ND 
! VPEtK<«H1000 +V +T*32>< > 8H 857 MENT«T-TTsTT= 

í 3 ® 0 I ,r| *’PL'EK<AH1800+U+T*3a>»fiH85THFNPI <w" 

S b ?i 7 ti?£?Z SLOCATtw ' TaPRINT 5 ™«s"ãÍít?í«- 

j M-íiIhM<0THENGOSUB40<j 

! ?*?.. JF-V-25AND t =RY+ÍTHEN380[:LSEí80 

: J j got oi &<ô 

! 3 ?® ********* FIM DE JOGO ******** 

I ?F^n" A ^S, 1 ^ M1 ®® 0,,:nLAY//O3L7DGfi l-At-R4l.7F 
í E-LÀCR4L7DDDL202D" ' 03L/E “ E - 

340 LOCATES , 8 :PR INT"FIM DO JOGO" : L Of'ATF / 

, 1.2 SPRINT DE N0V07C S ou NJ" -L^CATEó 

35 ® AS=IMKEYS»IFA*«"S"ORAS="s"THFWftflr. cr 
F T ■ SCRE^? R ? S f ,f//THEN5TR ‘ ( 0 > 0FF ; SPR SeÍf 

3if2oTO34Í' 1,WIDTH29:ENI>ELSE35 ® 

J* ******* TUD0 «>MIDO ******** 

J80 IP M=OTHEN430ELSEPLAY"OÍ5O5L1 ar"- irr\ 
eTHENS-S-SíQOTOiBOELSEiBe 5 




► 

rs 



> 


R 


I 


400 F OR 1= 1 0T 060 • J— 7 0-1 1 PLAY"L64Vi 5N= J; " : 
HEXTsR=isS=S-200!lFS<«THCNS-0 
4 í 0 VPOKE&H20 16, SHD7 : RETURNi 10 
420 ' 

430 L0CATE4 , 9 s PR INT"Fase" , R ; " Terminada 
: P LAY"04L9S i 0M1000BEBBB -B ~B“B~A05D04A05D 

0 4 A A A " : S ~ 3 + 3 0 0 - ' í I = R R -• í = F O R I = 0 T O 5 0 0 0 = N EL X 

T • GOSUB470 

440 ****** PONTO&TEMPO&RODADA ***** 

450 I OCATEi,0 = PRINTUSING" RECORDE *#«»»# 
tt*PONTO*tt ««»»»*" t H ; S : L0CATE1 , 22* PR INTUSI 
NG"TEMPO!###tt Comida»» Fase «» ";500-Tl 
?M;K 5RETURN 
460 ’ 

470 CLS : CR-R • IFR > 15THEMSCREENÍ , , 1 : P 1 - A Y " 0 

5V15L8BBBBB-B-B-B-A05D04A05D04AAADEF+GG*- 
R4","Vi504R4l 8BBBBB-B-B-B-A04D03A04D03A0 
4D04AAADEF+GGR4 " : NEXTZ : GOTO340ELSEVPOKE& 
H201 6 r i+16*CR sRETURNÍ 10 
480 ' 

490 R X“0 s PLA Y" V 1 505L25DD" : L0CATE22 , RY+1 • 
PR INTCHR®< í >+CHRS*(67 ) SRETURN 

500 L0CATE22,RY + isPRINTCHRS(«H2e>»F0RI<-4 

0TO5S s PLAY"V15L20N=K ; "sNEXTK * S"S+70 ! TI=T 
1-200 : GOTO í 80 


5 í 0 
520 
530 


530 PRINT" **** *** * * *** **** 

54® PRINT" * ********* " 

5Í30 PR INT" **** * x x x *** **** 

560 PRINT" *** *****" 

565 PRINT" **** *** * * *** * * 

590 L0CATE15 , i 2* PRINT" Voce"sLOCAT Ei5, i 
4 : PR INT" LFAO" ! LOCATE 13, 16sPRINTCHR$< 13 
3 ) " COM ID A" : L0CATE8 , 2 i : P R I NT"Tec 1 e < R ETU 

600 PUTSPR ITE0 , < 13*8 , 12*8 > , 7 , 1 t PUT6PR ITE 
i , ( 13*8,14*8) , 10,2 
610 IFH < STHENH=S 

620 MU4="Ti25O15O4L?Si0M1000DG+DG+P+F+r < 
EDG+Dü+F+F-rF+EDG+DG+F+F+F+EDGF » GG+R4" 

630 PLAYMUSis IFPLAY<0> THEN640 


560 PRINT 
565 PRINT 


**** 

* 

**** 

* 


XXX 

X 

X 

X 


r 69<ô 


V s LO 

CATEIC 

7 5 

ff 

* 

XXX 

xxxx 

XX 

X X 

x X 

ff 

X * 

XXX 

X X X x 

ff 

X 

X X 

X X 

// 

X 

XXX 

X X 

// 

Voc e 

í"sL0CATE15» 1 
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INDY555 


O GRANDE PRÊMIO 


Não se sabe como, no dia do seu aniversário 
uma força sinistra o jogcu para dentro de um microcom- 
putador, e la, uma série de coisas estranhas começaram 
a acontecer . 

Aos poucos, os fatos se exclareciam: você ti- 
nta sido convocado para uma corrida de Fórmula lnd> e 
seu desafiante seria nada mais nada menos que o seu 
microcomputador . 

„ . Isto, ao seu ver, era c cúmulo dos sonhos, e 
voce nao conseguia acreditar em nada do que estava a- 
contecendo, mas para. sua desilusão, era tudo verdade. 

Sua equipe havia conseguido preparar apenas 
cinco carros, e se você batesse todos eles, seria o 


- . Alguns dias antes da corrida, descobriram que 
nao haveria um jeito de controlar quem estivesse na 
frente e, como solução para isso, foi estipulada uma 
nova especie de corrida, no estilo de uma brincadeira 
de pega-pega, em que haveria um perseguidor e um per- 
seguido. Adivinhe quem seria o perseguido: você, nhvi- 
amente I 


No dia da corrida ao regras foram ditadas pa 
ra ambos os corredores: 


* 0 objetivo do desafiante (você) será de 
passar por todas as pistas, para isso haverá um con- 
trole. Todas pistas apresentarão pontinhos que deverão 
ser recolhidos pelo carro desafiante. 

- * 0 objetivo do computador será de impedir 
que voce consiga completar a sua tarefa. 

T Quando o carro desafiante conseguir reco- 
lher todos os pontinhos, ele irá para um próximo cir- 
cuito. cada vez mais ditíci i . 


Essas regras fizeram você descobrir que nunca 
mais iria vo i t a r para o mundo de onde você veio Res- 
ta-Jhe então apenas um consolo, dizer adeus a seu mun- 
do colocar o capacete, cantar "Parabéns a você " e 
tentar dirigir o melhor possível... 

Seu carro será controlado pelas setas da di- 
reita e da esquerda, sendo que você deve se imaginar 
dentro do carro de fórmula Indy. 

Para acelerar o carro, aperte a barra de es- 
paço e segure-a. Ao soltá-la seu carro voltará à mes- 
ma ve I oc i dade inicial. 

Ao término do jogo. tecle espaço para reini- 
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Grave o programa antes de executá-lo. caso 
contrário você perderá tudo o que você fez. 


DIGITAÇSO 

Tenha muito cuidado na hora de digitar as li- 
nhas DATA, pois na maioria das vezes é nelas que os 
erros ocorrem. 

Para isso, existe uma pequena rotina que ser- 
ve para testar todas as linhas e, se encontrar algum 
erro, indicar o número da linha once ele ocorreu. 



Figura 6.1 - Listage* do prograia INDT 555. 

* | 100 REM INDY 555 
* Í 110 REM 

$ | 120 R EH Luis F. D. Dias 

í 30 REM 

® 200 SCREENC s WIDTI-M0 : DEFINTA-Z 
® 210 L0CATE12,8:PR INT "LENDO DATAS !!" 

<f. 220 l OCATE12,Í0=PRINT"D000 -> D85ò" 
i 230 LOCATE12, lí :PRINT"AGORA->" 

®Í240 CLEAR300 , &HCFFF 
•j 250 DEFUSR=&HD000 
« ! 2 60 AD=&HD000 
I 270 F0RLN~ÍT0Í34 
! 280 READDTÍ 
•Í 290 FORGF=í T031STEP2 

«! 300 P = P + Í : POKEAD, UAL ( "&H" + MID9j ( DTS , GF, 2 ) 

- í ) 
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«- : 


€* I 


€* 


I 


305 B 9>=MI D$ < DTS , GF , 2 ) 

3Í0 AD=AD+1 : J=J+F wyAL (BI ) 

320 LOCAT EP0 „ í i : FRINTHEX3Í ( AG ) 

330 N EXT 

335 F*=HEX5 C J) :G- ( i 2288+AD > /I . á + 340 
387 II- LEN (HEXi ( J) > = iTHENY5=F<b+ // 0 "El ccn Tl - 
RIGHT9í(F4,2) 

I 339 G$=MIDí ( DTí , 33 r 2 ) 

j 340 IFGí=i7*THENJ=e:P=0:NEXTELSEPRINT"ERR 

! 0: : PR INTG; "DATA " ; DTÍ6 : END R 

i 343 GOTO201 0 

' ;? f 5 t, DATA " 3ÍaÍDA2iBBD7í600 ^4ACD470023í43 

L_ 1/ o 

360 [ ) ATA"0BBA20F42ÍDéD7il00180iB000CD5C0 
^J!L DATA " 21 ®® 2 ® 11 *eiB3EB5CD4D00iB237AB32 

146" DATA,fr5010 ^ 32i00387ACD4D ® 0í4 2 3 0B78B 

033" DATA ' " 2 ®F52i00 3 F3EC0CD4D0023i0F82i000 

400 / D ATA" i i00 í D A FCD4D00 1 B237AB320F^2iBFF 

410^,1 A"060ÓC5D5E5CD6AD6E1060C7C90677D9 
42® DA T A"óF D l/AS0577B805FCil0E7ií0C6FCD9 

/•46 

^ DATA ' /D6ii8F 6f r CD97D6ii4F0CCDACD6ií4FC 

A29 ,/DATA ,CDACDí0Óe4íi404O2:l7FBFC5D5E:5C D 6 
8A4 /,DATA /D6E1DiC1252Di4ÍCi0F12Í800422S6D 

de^ DATA " 6068225OD83EFF325DD83E063267D8c 

2B5" DATA ,niD6íl0A0A2í48D70EFGCD13D73E:L83 

f??/, DATA " 5FD8245DD83 47EFE033BiB3E03772A5 

616 

4 ^ DATA//D81í 4000A7ED52í10003EBED52EB380 
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n 

r 


©j 500 DATA"2íC8002256D887872iC6Q7íé0®5Fí97 

• I EEE" 

, i 510 DATA"326CD8237E3299D3ED44328ED3237F3 
^ • 243" 

&j 520 DATA"5AD82í 89D8015001 36FF230B78B1.20F 
<* Í 8 77" 

„ i 530 DAT A"0i 10 1 021 921)8 í i 1300772377237719 1 

• i 0CÍ" 

<* ; 540 DATA"F80ÓS42Í07D?772310FC21D8D?0ÓÍ57 

• S EDE" 

. ! 550 DATA' V A72820C5050DCDÍ 3D6E5210504 í 9EE C 

• | D36" 

#! 560 DAT A"2AD6 1. 4 1 CCD2AD61 4 1 DCD2AD6 í 5ÍDCD2 

• ! ABC" 

! 570 DATA"D6E 1 C i 2B í 0D90D20D42Í B4872260D82 
♦I i76" 

•! 580 DATA"6EB4226FD82i 8700227 7D83E043263D 
® i 8D0" 

1 590 DAT A /# 3273DH327B D8325ED8AF32DB F33265D 
84 C" 

600 DATA"3274D8327CD8AF3262D8327 ÍD3CD07D 
j 5A2" 

I 610 DAT A"3E 023279D8DD216FD8CDÍ 5D5DD2Í 77D 
8 Ei 4" 




*> 


«» 


• | 620 DAT A "CD i 5D5CD24D73A5FDOA7200ECD24D72 

«! 

! 630 DATA"00D02B7CD520FBC3CDD03A87D82i88D 

i 8 iD" 

*| 640 DATA"BE28ÜE5F5218BD7A728032i94D7CD2 
& ! 7BA" 

. j 650 DAT A"D7F 1 Eí 7721 65D87EFE02281FE5CDC6I) 

• \ 4AF" 

®j 660 DATA"E130í 1 7F347F3U200D21Ó2D8347EE60 
» Í 3CA" 

_ i 6/0 DAT A"77CD07D5 1 87 63E0C3264D8CDC6D4F53 

• i A69" 

©I 680 DAT A"62D82Í 60D8A74720057ED684Í 80F 100 

• i 699" 

j 690 DATA"237EDÓC418iíí00?7E473E30?01E0ii 
® i 8BC" 

©í 700 DATA"08237E473E3090 1 E003266D847F13Ô4 
« | 333" 

5S 


| ^l® rt | jftTA"AF3?ó5D8780é00iá0C9238e3e4í8FA8 


?DD" 


7 22 DATA"FE06380i04783263D83EF40482i0FDF 

* | 54 6" 

& ! 730 D AT A "2 160D8ÍD1 C2001 233A62D8E602C 1 200 
! E9A 

® í 0 | ^ DATA//1D3EC ‘ 12ô ® 23E: O' 48O77CD07 'D5iB503E3 
$ I 730 , - , DAT A // 90ÍBF5AFC:DDt;00FF03280L r FE07203F3 
*j 760 DA í A"63D8A72S3906FEi8093A63D8FE04282 

<& ! E46" " ' 

j 7 70 DA T A"06022ÍC2D73A62D8F5A7280DL»33D280 

i ' Ln 

?j 7 « 0 // D ATA"233D280i2378ED44474EFi2i6íD8E60 
7V0 D AT A"200 i 2B7E80479i3805FE31300170CDD 

j D \J n 

*\ 800 f>ATA"D53A6CD8326ED8DD2ÍÓF -U8DD7FOSFE0 

! 296 

« ! ?* ^ D A T A "282 i CD A5O430 i 5DD3405DD7E 05 3D 200 

j L. 1:1 2 

* j S20 / /> A TA"DD7E023DE603DD7702CDi5D3i8783E0 

^ I C A (..• 

830 D A T A"DD7703CDA5D4F5DL)7E02A7472007DD7 
1-00 

* i ^^ / l; A1A"0Í D684i8í2í007DD7E00D6C4í 8.1.41 00 

850, DATA"DD7E01473F30901E01 iB0yUD7E00473 

E7 A'" 

3A0" DATA /,309eÍt00r)n770647FÍ3042AFDD77057 

j 870 DATA"06001á0C923G0304 í 8FA82FE063801 0 

• 4F4 

880^ DATA // DD7004e43EF48210FDF5DDE5Eí 1DÍC2 
822 

890 [)ATA"0Í23DD7E02E602CÍ200E1D3EC420023 

l- AL 

900^ DATA"B4B077CDÍ5D5Í84D3E309018F53A66D 

c)L^ 

£i 0 „ t > AT A"DDBE06DD7 E 04283D30'07A7283806FEi 


B0 



* 
* ! 


i 

* i 


VL >0 DATA' / e»?DD7E«4FE04282D0&e22íC2D7DD7E« 

?D 4 " 

930 DATA"F5A7280D233D28©9233D2S©í2378ED4 

® ' 44 í" 

940 DATA"474EFiDDE5Ei©F38©í237E80479l380 
54A" 

950 DATA"FE3i3C0i70DD6é00DD6E0i2268D3l)L)/ 

EFB" 

9Ó0 DATA"02C602E6®387B7326ADB3E08326BD82 

í zd" 

970 DATA"A8D83A6FD8i 1 083F3D28031 1043F0 10 
A/V" 

980 DATA"00CD5C002AÓ0D8DD7E00?43002ED44r 
EE0" 

990 DATA ,, 0A3©0DDD7E01953002ED44FE® ADA47D 
4 

1 000 DATA"ii080®DDi92i6ED835C2DBD23A5EDB 
A7(" 

1010 DAI A"281A219DD7CD27D70i00000B78Bi20 
j 1020 DATA"325ED8CD24D72i8BD7CD27D72A5ÁD8 

2B E-P // 

1030 DAT A"7CB520r BC3B6DÍ 2i7 AD7CD27D70A4Í 
C5?9 y/ 

1040 DATA"2í 62D87E3CE6037724 ABD87ECÓ03E6 
i 0FB0" 

j 4 050 DATA"77CDE2D501 000F0B78B Í20F- BC1 10E0 
■ 0078 " 

1060 DAT A"24D72i A7D8352806CDC1D6C369D1 1 1 

1070 DAT A"0B2Í5CD7 0EF5CDÍ 3D7 110E0C21Ó6D7 
© I*** ü Q ^ 

40B0 DATA"F5CDÍ3D7AF CDD800A720F9AFCDD800 
A7FT ** 

1090 DATA"28F9C342D0DD7E02F5DDE5DiE60i28 

0íD7 /y 

1.100 D AT A" 1 3C 1 0E0205 280505280 20EFE IAS í 1 2 

DD60" 

1.11.0 DATA"350337C8A7C93AÓ2D3F5i 461D8E601 
28C1 7/ 

1120 DATA"0iiBCi0EFE0528050528020E02iA81 
120F" 


, I 

• I 


& 

& 

& 

í 

& 

i 






1 i 3 ® // DATA"Dü C 5 C D31D5C1DÍ 2í A4D83537CSAFC D 

L/Un 1 

DATA"0032B7D8A7280ElABíi2CD3iD52iA4 

D8A0 

1 j 50 , A 7 A " 3 5 2 € 0 2 3 7 C 9A7C93A63D84F3A62D8CH 
220A" 


^ ^ ^ 1 A 1 A " D 5 3 2 6 A D 8 C 9 D D 7 E 0 2 E) D4E04CD2 2 D 5 D D 
7783" 

1 1 7 0 ^DATA"03C906Í FEó0í2802060F7?8787818 í 

| 803 A" 

j lí 80 ^ DATA"C92A<S0D8110Ó0ÓÍ9E555CDF[>D54BCS 

j 2183 

| DAT A"89D8Í 60004151 91 0FDC1DÍE57BFE80 

| 1 200^ D A T A " 0 2D A 0 4 5 F CDFDD5E1 431600Í 97EA7C8 
Eb(i)4 

12i ® UATA"CDí 3[)62i 0504Í 9EBCB2AD61 4 1CCD26 

D 663’' 

.1. 220 ^ D A 1 A " 1 4 1 DC D2 6 D 6 1 5 i D CD 2 6D62 i 5 F D8 352 A 

f j 8 8 Ei 

1230 DATA"D83A5AD81A005F19P258DB0EF5il0A 

í 06 4" 

1240^ DATA"C5l>51 17FD801 1027CDC3D50Í F803CD 
C397 

1250 DA7A"[>50íó400CDC3D3©10A00CDC3D57DC6 
300C ’ 

i260 w DATA // 12i33E3012i33E2412DlCi217FD8CD 

13?? 

1 27 ô DATA "[>7 i 8 1 0C5A73E30ED4238033C1 8F9L' 1 
09DB" 

128e w DA T A"i2 1 3C 9 Eí3é002iAC D 7C D 27D7C93E0F 

32C0 

J.290^DATA"6BD82A60D82248D83A62DG878732óA 

1/8 7 C 

1 300, DA I A"2168D8í í 003F0Í 0400CD5C00C9C5AF 

131© DATA"0608CB02i7FE0C3B04D40CCBFBCB03 

1094" 

132© DATA"F 1 L 1C97887808787FE803802C60457 
793D" 

1330 DAT A"878187 87 5FC90L00 í 8020F01 D5E5C5 


42D5" 



i 


* í 


* ! 


í 


•i 


! 


í 


w 

! 


0-r^~ DATA " ^ 7AE6Fr86F260 ®7BEóF80F-0FeF577BEó 

D 63D" MTA " 5F 1 9 1 1 000 0 1 9 '^€7 A©4F0á00E52 i 62 

eiec" C>IÍ ' TA / 0956E1CiCD4AeoB20D28eíAACD4D0e 

C?DC //DATA,,D1CV8Ô4Ô20Í 0080402017092470405 

FfU 2'' DATA/CD2ADál4ÍÔFACÍC>ÍD55DCD2AD6i4i0 

5?E^ DATA,,D17D934704D5C5CD2ADáíC l° FA CiDí 

14R0 / ' DATA,,CD2AD6iCÍ0FAC92E042Ó22D5CD26D6 

22 yE" DfiTA 2520F9D17BC6OC5F2D2eEEC92E0426 
En?a" DATA/D5CD26DÓ1C252 ®F9Di7AC60C572D2e. 

l7E^ DATA,C9Íl0DÍ ® 2155D70EF5D5CD13D/D13A 

144 |. DATA/ ' O83DCB4/3F ^0EF5C5D5CDE3DóDiCl 

l í <MA" DATA,1Cr2C9F57A3787a76FFi535D2Í00e0 

F 9 C ^' DATA " E5;?1 00201 9E52600áF292929EB2A20 
laíf„ DATA " 19EBElô608/VCD4O ^231®r9EE)Di0£: 

y)\j d .1. 

Í^ , OA T A"C35C007EFE24 C 8 E 5D5C5CDE3D6CÍDÍ 

L 1 D ti 

07 c®- DATA " Í42318FF2171D77EFEF ' F00 235E23FE 
9óC0' /DATA ,CC3 O D7CD930ei8EF7BE63F 5F3E:07CD 

30 EO" DATA 00EAC0S35F3EÔ7C9504r4E544F2030 
1 DATA,,3 ® 30303 ®2420202020?020244í 4341 

1530^ D AT A / -4F552E2E2E244445204E4 F 564F2020 

FF26'' DATA ' 2/ ' e73Fl38000900eA00FF06ÍF073600 
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© | 1-550 DATA"0i0F08í00BFF0CFF0D00FF00?Li010E 
^ , 0734" 

# | *56® DATA"3A080EFF009B0107073A080FFF02ó-< 

© í 0349" 

© ! 1-570 OATA"0004820500090D0A0D073?FF04C80!: 
: 00BA" 

@ I 1-580 DATA"OA1O0BC80C080ÜOOO73AFFO2EPOFFF 
© ! 03E9" 

© i 1-590 DATA"/ F03S4C40O00OÍ 01 05OOÔ i 02050001 
. ! OiD7" 

; ÍÓOO D AT A"0 AO002020FO 00 O 3 Ei 3 A 1 33 F 1 F 3 F 1 33A 
1 | 3872" 

# j 1610 D AT A "0000 00000000OO 00 3H3 89 0F : 890383F 
© 10090 " 

j 1.620 DA I A"0O0000OO0000OOiAíFl AO2070F1FO7 

v j 374c « 

•í 1 | .1.630 DATA"3F350000000000C0C0C0000080C000 

© 1 * 019 " 

© Í l '->-10 DATA"E06000000000O0OO3839133FÍ33938 

! 000C" 














® I ',.650 DATA"0000000000000038BÜ?0F8F0F8?0B3 

<& Í 3800" 

_ | j 660 D AT A"0 000000000 000035 3F3707 í F0F 0702 
! í ARE 

• 1 1670 DATA"iFi A000000000060E06000C0800000 
® 1C04B" 

|l680 DATA"C0C000000000000000000000000000 



0000 " 

2010 RESTORE2040 : SCRECN1 s UIIDTH28 s COLOR 6 , 
1,1 SKEYOFF 

2020 JK=384 5 FOR I = lTOí 6 = READAí = FORH~ : 1T 031 
STEP2:C=VAL<"«H''+MIDS(A4,H,2> >:VP0KEJK,C 


:: JK^JK+l • NEXTH* NEXTI 


<b 


• |2 


2034 VPOKE0190, 129 : VP0KE8199 r 177 2 UP0KE82 
00 , 32 s VPOKEB201 ,65 

;í 040 DATA"0f030i0i 0000000070c 08080000000 
. ! 00 " 

* 1 2 0 50 DAT A" 80 c: 0 e 0 f 0-f 8f cf eff f ff f ff f f f f f f í f 
'* i f F" 

i 2060 DATA"3c7e7efffffffffff«+‘cfefefíffff 


/*• 


ff" 



65 


I 

I 


2070 
f 8" 
2000 
FF" 



2090 
00 " 
24 00 
0f" 
24 4 0 
0F" 

2 420 
0 4 " 
2430 
00 " 
2140 
ff" 
2450 
0 !' " 


24 60 
0F" 


*j 2470 
b! F0" 


DATA' 4f 7f ff f f f ff f 7f 4f f 8f sf f ff ff ff f e 
D AT A" 80C0E0F 0F8F CFEFFFFFF F F F FFF FF F F 
DAT A"FF7F3FiF0F070304 0f070í0i000000 
DATA"FFFFFFFFFEF EFCF0f f f f f Fff 7f 7f 3f 
DATA"000000008080C0F000000000040103 
DATA"0000000001 01 030f FF7F3F4 F0F0703 
DAT A "0f 0704 õ 10000 000ôf 0c 0800 0000 000 
DAT A "80c 0e0f 0f 8f c fef f f f f f f f f f f f f f f f 
DATA"FFFFFFFFfefefc POf f f f f f f f 7f 7f 3f 
[)ATA"000000008080C0F0000000000404 03 

D A T A " F FFFFFFFr-TFF F F FFFFFFF F F F F E F E F C 


2 4 8 0 DAT A " F FF FF FF F7F7 F 3F0F 4 f 7 f f f f f f ff * 7 f 
4f " 

2 4 9 O DATA "F8FEF FFF F FFF FEF 8 F F F F F F F FFF7F7 E 
30" 

2300 PR::NT" 63337 4 4 63335 4 4 

«34 32 3 03333 3 3 9 ?s8 9 

9 V9 9 9 9 9 =89 9 9 9> ?? 

E E AE E E GEEEF E E 

E E S)E DEC T.IH J J IJJJJ 

I MJJJN 0 0 MJJJK 0" 

23i0 PR INT* PRINT" JJJJN JJJJN JJJJN 

EC EC EC E 

E E 33335 33335 33 


E E 33335 33335 33 

335 03 03 03" 

2555 PRINT" > ?9 > ?? > ?9 

99999 99999 99999" 

2600 ! OCATEí ,22: PRIMT"cl i g i i e cspaço para 
c o me ::: <1 r " 

2 6 1 0 I F S TR I G ( 0 ) I Hf I D =ÜSR ( 0 > E L. SE G 0 T 02 6 4 0 




Wilson Fazzb Martins 




Es 1 3 programa simula um jrgn do tipo "adven- 
ture" onda o jogador deve escapar da famosa prisão de 
Alcatraz. Através das selas e de comandos escritos, 
deve-se guiar o prisioneiro para a fuga. tomando o má- 
ximo de cuidaco com 3 perfeita, ou quase, segurança da 
pr i são. 

Ao iniciar-se o jogo, o prisioneiro (com rou- 
pa listrada), encontra-se na sua cela. Voei pode, com 
ao setas, move lo em todas direções, até que um obstá- 
culo (parede, grades, porta, etc.) o impec3. 

Nos diversos corredores da prisão, principal- 
mente nos gue não tem sa í da, pode-se encontrar diversus 
objetos. Então, para saoer se há algo no local, deve- 
se pressionar a tecla SELECT na parte superior do te- 
clado. Para saber quais os objetos que você carrega, 
deve-se pressionar ESC. 

Ações mais complexas serão executadas através 
de comancos escritos, sendo que as palavras usadas de- 
vem constar no vocabulário do programa. As trases ore- 
cisam ser digitadas da seguinte maneira: 

VERBO + SUBSTANTIVO t <pr epos iç£o> + SUBSTANUVO 

Note que a preposição é opcional. Você pede 
omití-la, contudo é necessário que as palavras sejam 
separadas Dor um espaço em branco. 

Todos os artigos DEVEM SER OMITIDOS ! 

Ss, por exemplo, você quissr peguar uma pá, 
senco que esta deve estar na mesma posição que vncê. 
d i g i te • 


PEGUE FA 

Existem ações que requerem mais de um objetu, 
cumu por exemp I o , q ue ima r um papel. Para se queima- al- 
go. è necessário fósforos ou um isqueiro. Então a frase 
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deve ser digitada deste modn : 


QUEIME PAPEL COh FOSE OR OS ou 

QUEIME PAPEL FOSPOROS 

As palavras aceitas palD computador são -s 
segu i ntes : 

VERBOS SUBSTANTIVOS 


Abra, Amarre, Ameace, 

BeDa , 

Cave, Coloque. Coma, Corte, 

De, Di spar e. 

Entre, Examine, 


Jogue, 

L i gue. 

Mate, 

Peça, Pegue, Puxe, 

Ouebre. Queime. 
Rasgue , 

Sul te. 

Tire, 

Vista 


Agua, Alarme 
Baralho, Bebida, 

Cães, Cama, Carcereiro, 
Gnave, Cooertor, Comida, 
Di nh e iro. 

Espe I ho, 

Fi ta, Fogo. Fósforos, 
Grades, Gravador, Guarda, 
Jorna I , 

Lanterna. Lençol, Luz, 
Osso, 

Pá, Pilha, Poco, Porta, 
Presidiário, 

Revol ver . Ror a. 

Serra, 

Terra, Tiras Tomada 


OBSER VAÇoES IMPORTANTES 

t se você digitar uma frase e o computador 
responder "Isto não é possível.”, não quer dizer que a 
ação seja realmente impossível. Tente reescr e vê- 1 a de 
maneiras deferentes, como por exemplo: 


ABRA PORTA 

ABRA PORTA COM CHAUE: 

ABRA PORTA COM FOSFOROS 
ABRA PORTA COM PA 
etc. . . 

* Você pode examinar os objetos digitando "E- 
XAMINE”, seguido do nome do objeto desejado. Isso pode 
lhe ser muito útil quanoo vocé nao souber o que fazer. 

* Você deve, se possível, pegar todos os ob- 
jetos cue encontrar, pois eles provavelmente serão u- 
sados mais tarde . 

* Não siga o caminho lógico para escapar. Fs- 
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te jogo não se baseia em lógica. 

* Não tome por bate us exemplos citados ante- 
r i ormente . 

DIGITACSO 

Todo cuidado é pouco ao digitar este prcgra- 
ma. principal ne n t e pela sua extensão. 

Todas as linhas DATA e PLAY devem ser revi- 
sadas após digitadas, pois sãn rnne o maior número de 
erres ocorrem. Tome cuidado pare não confundir a letra 
"0" com o número ”0" ! 

Respeite msiúsculas e minúsculas. 

Respeite R I GOROS AMENTE os espaçes em branco 
entre palavras nas frases das instruções FRINT. pois 
foram calculados para que os dizeres do computador te- 
nnarr estética na tela. 

Caso a entrada do programo apareça defeituo- 
sa. confira os dadis nas linhas de 3160 à 3270. 

Caso ns desenhos do programa lhe pareçam es- 
tranhos , conf i ra novamente as linhas de 3510 até u fim. 

Digite ccm cuidado os dois caracteres antes 
de cada substantivo nas linhas 3420 à 3430. 

Confira u máximo ds vezes possível as linhas 
34Ü0 e 3500. pois elas sãn a parte mais importante dc 
programa. Um mínimo erro nessas linhas como rume te o 
üum funcionamento do sistema. 

As linhas de 3300 à 3390 contém cs dados do 
mapa dc prisão. Confira também o maior número Ge vezes 
possí ve I essas I i nhas . 

Tome cuidados especias também na digitação 
das I i nhas 1330 e 1350 . 


-í 

"1 

-1 

-1 

-1 

-1 

-I 


CONS IDERAÇÕES FINAIS 


Escapar de Alcatraz é mais dificil do que pa- 
rece. Não desista, doís este jogo é um ótimo passa- 
tempo e um complicado quebra-cabeças. 

Depois de sair da cela. o jogo fica mais fá- 
cil, pnis aumenta seu campo de movimento e novos obje- 
tos são encontrados. 

Nào_ se impreçsjone com o início do jogo! 0 
mapa da prisão é muito maior do que parece. 

Divirta-se com ALCATRAZ! l 

Mas lembre-se: ALCATRAZ é inexpugnável! 

Sair dela é quase impossívell 

Entra, é realmcnte impossível' 

Uma vez fora de ALCATRAZ, você não pocerá re- 
tornar mais para sua cela! 



70 


# 

* 



Figur 

tf I 
! 

* ! 
■ 
i 

tf : 
tf : 

* i 

tf i 

* i 

* i 

i 

tf i 
tf : 
tf i 
tf i 

i 

i 

tf ! 

tf i 

tf í 
tf i 
tf ! 
tf ! 

* 
* 
* 


a 7.1 - Listasei do j>ro9'a« ÁLCAHAE. 
i0 ' * Al CATRAZ a -í uqa impossível 
20 ' * 

30 r * de Wilson Fazzio Martins 
40 ' *********** * *»* * ** ************* 

50 ' 

100 C L E A R 4 0 0 0 : D L K I r J T A - ■ 7 . : C 0 L 0 R 8 , 1 5 , í 5 
110 SCREEN2,0sO"EN"GRP«"AS#í 
1 20 VPOk E61 44 , í : VPOKF6400 , 1 : VF0KL6656 , 1 
130 F OP N-0T 07 : R EADôíb - Q--VAL < /, 8H ,/ + 04 > 

140 VPOKF.N , 0 : UP OX E N + 2 043 , Q : VPOKFN+4096 , 0 
:NEXT 

150 FOKN=0TO7!RE:AL)Q9>!0 - V A L ( " fi + 

160 VP0KEN+819? r 0:yP0 K E N +1 0 24 0 , <3 = VP 0 1< E N •* 

12288,ft:NF.XT 

170 GOSUB3030 

180 Dtl FNSÍ ( J) =MI 0® < SUT) < J > ,3) 

190 D IMFOÍ ( 13, í 1 > ■ F0RH-2T01 í : FORN^GTO 1 3 : 
READPO® < N , M > : NE X I N : NEX I N 

200 N5=34 s D I MSUÍb ( NB ) s FOR N=*0TON5S : R EADSU4 < 
N> ! MEXT 

210 NV=23:DIMVE*<NV> • FORN--0TONV : READVES ( 
N) sNEXT 

220 NA=54 : AS=44 : DIMAC® < NA ) : FOR N-0TONA : R E 
ADAC® ( N > s NEXT 

230 PO R : PL = 7 : ED=66 1 i : COLOR i , 5 , 5 » CLS 
240 FORN-0TO145 VP0KC61 44+-N r 1 5 : VP OK E6400-* 
N , 1 5 : V P 0 K E 6 6 5 6 + N , í 5 : N E X T 
250 FORN=0TO1Í9:READQT.!Q = VAL ("«H" + G<k > 

260 VPOKEN ,Q s VPOKEN+2048 , Q : UPOKEN + 4096 , (i 
SNEXT 

270 FORN^OTOliO : RÊADQÍ !0=UAL("£H"+Q$ ) 

280 0P0KEN+8ÍV2 r 0* VPOKEN + i 0240 , Q s VPOKEN + 


$ j 12288 , Q : NEXT 
Í 290 GOSUB 1390 

* ] 300 STQPON : ONSTOPGOSUB2990 
310 G0TO690 
*, i 320 REM 

I 330 REM ***** AGUARDA MOVIMENTO ***** 
•j 340 Ií=INFEV® : IFIí=""THEN340 
350 GOSUB 1390 
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«* ! 


& 


* ! 


y~ *'■ >THEW ™® = : I =0 sPSET <ió,8),í5: (jOT 09 

370 MO=0 : Ô~ASC( lí ) 

300 IFQ=24THEN820 
390 IF0=37THEN890 
400 IFQ-38THENST0P 
410 Q=STICK (0) 

4P0 I FQ = í THENMO = í 
430 IFQ=5THENM0=? 

440 IFG=3THENM0=3 
450 I F Q-7THENM0=4 
460 IFMO=0THFN340 

470 I5=MIDS(P04<PC,PL ) ,N0, 1) 

400 R FM 

ilt 5p?<c *1*1 MENSAG£ NS DOS LOCAIS 
.. o00 IF I1i="0"THEN690 

«,í 5í0 IF IS— "i "THEN340 




! 


«■ í 
i 


520 IFIÍ="2"THENPRINT«í," fts 9 rad es da „ 

cirica. Voce foi eletrocutado." 

550 IFIÍ = " 5 "THFNPRIN7«.1. r "Ha uma porta fe- 
chada aqui . : GOT0346 

%\ q I u? 4 “ /,6//THENP S 1NTH í'" Esfa m,JÍto ■»«=« 

l perná ^ trop — • quebrou 
580 IFIi="7"THENPRINTttí , "Voce caiu no fo 
rrtri 1 " re!ltau ' Q,Jfc- «odo horrível de oio 


590 IFI5="8"T H ENPRINT«i r "Voce dis Paroii ,, 

^iTÍSiS- - — t4T? .? 

6M IFIS="9"THENPR IMTÍ 11 , "doce passou P a r 
M feixe de luz ,ue disparou outro alar 


-1 

-1 

-1 



# { 610 in:4=-- // A / 'ANDX(9)=iANCLEFTÍb(bU%(í5) ,1) 
' S ~"*"THFNPRINT#Í , "Os caes dormem. . . " : GOTO 

® I 690 

«■ 1 620 IFI%= ,, A ,, THENPK INTHí , "Ha cinco cacs a 
^ j qu i . Vdcc foi horrivelmente devorado! 

I // 

I 

^ | 630 IFI1)= / 'B /, THENPR INTMí ,"A passagem aqu i 
€• ! esta bloqueada por t erra . " :GOT 0340 
A ! 640 IFI* = "C"THENPRINTtti,"Voi.e deu de car 
j a com o cárcere i-rò e ele o denunciou." 
650 1FI1> : = / ’D"THFNPR INTHi . "Consegu i mos sai 
© ; r do prédio, mas ainda falta transpor o 
I pat it . . ."S6OTO690 
j 660 GOTO 1430 

• j 670 ke:m 

• {690 R FM *****! IMPRIME LABIRINTO ****** 

Q ; 690 IFM0=i THENPL-PL-Í 

| 7O0 I FM0-2THENP L=P L + i 
*1710 IFM0=3THENPC=PC4 í 
<S! 720 I FM0“ 4 THE NP C=PC - i 







730 IFED=661 3 OR £D=6677 OR ED=674í THEN 
UPOKFFD, 4 Fl SF VPOKEED,0 
740 I. í =POí ( PC , PL > : ED-I3A3E ( Í0)+PC*2+PL*64 
+ -3: VPOKEED-33, i : VPOKEED-31 , i: VPOKEED+31 , 
1 ! VPOKEED+33 , 1 : VPOKECD, Í4 
750 VPOKEED-32, VAI.. « "&H" + MIDS(IS , í , 1 ) ) 

760 YPOKEED + 32, VAI. < "8H" + MID<t < IS , 2 , i > > 

770 VPOKELD+i , VAL ( "&H"+M 1 D9> ( I9i , 3 , í ) ) 

730 UPOKEED-i , VAL< / '*H"+MIDÍ - I<b, 4 , í >> 

790 X < 6) =0 : X (8 )=0 = S0UND3 , 0 = GOTO340 
800 REM 

610 REM DD MOSTRA OEJETOS NO LOCAL DD D 
820 PR TNT# 1 ,"Aqn i trm: " ; : I*=CHR4 (PC+60 ) 
* CHR5 <PL+ó0 ) 

830 M=0: FORN=0TONS 

840 IFI9j--LEFT9j < SU9j < N ) , 2) TMCNPR INT# i , MID S 
(SU<b<N>,3) :M = 1 

850 NEXT : I FM~ OTHENPR INTtti , "Nada Impor tan 
te"; 

860 GOTO340 
870 REM 

880 REM DDMOSTR A OB.IFTOR COM . JOGADORDD30 
08 

890 PRINT# 1 , "Voce tem: " ; : :G0T033 

0 

VOO REM 

910 REM *** ENTRA COMANDO ESCRITO *** 

920 I*=INKEY4:IFI*=""THEN920 
930 PSET( 1*8+16,8) ,1.5 

940 IFASC ( I $ > — 8AND I >0THENI=I-1 = FR S-LEFTSi 
C FR* , T ) : I T NF ( R*T + 1 6 , 8 ) - ( 8* 1+23 ,15),i5,BF 
=0010920 

950 IFASC < Ií) = í 3THENJ.010 

960 Q=STICI<<0> : IFO< >0THENGOSUB 1 390 = GOTO 

420 

970 IF 14>="a" ANO I$<=" 2 " THEN IÍ=CHRS< 
ASCU:‘b)-32) 

980 IF( IS< // A /, ORIS>"Z")ANDI*< >" "THEN920 




THEN IÍ=CHRS( 


)ANDI4< > 


THEN920 


990 PRINT#! ,IÍ; = FR $=FR í + 14 = 1 = 1 + 1 :IFI=30T 

HENÍ010 

1000 GOT 0920 

1010 GOSUEÍ390: I FFRS-^THENGOTOSAO 


1020 F0RN=LEN(FR4>T0íSTEP- i : I FNID4 ( F '! s , N 
i ) "THENNEXT 
í 0 3 0 FRS-LEFl í (.FR5 , N) 
i e.40 F0RN=ÍT0LFN(FR4> 

1030 IFMID5<rRl,N,í)<>" "THENNEXT 
10c>e FOk‘M'--07 ONO 

Í670 I F0E4 < M > =LFFT4 < FR4 , N- i. ) THEN I4 = CHR $ < 
M + 50> :(3OTOiíG0 

10 8C- NEXTN 

±090 PRINT#i,"0 que e ' " ;LEF14(FR4,N); 

?" í G0T034C 

li©0 IFLEN<FR4 ) =N- 1 THEN 1 230 EL.SE FRS>— Ml O 
4 (FR 4, N + i ) :FORN=iTOLEN(FR4> 
j.ii.0 IFhID4(FRÍ,N r i><>" "THENNEXT 
í 1 20 FOR M-0T ONS 

± i 30 XFFNS4 ( fi ) =LEFT4 ( FR4 , N- i ) THEN I 4= 1*+U 
HR4<M+50> sGOTOÍ Í50 
1140 NEXTM : GOTOi0y0 

í í 50 IFLEN (FR4 > =N-1 THFN 5 230 ELSE FR5-MID 
S< FR 4, N+i ) 





1. í * 0 FOR N “ L E N ( FR 9> ) TO 1 ST E P - j 
1.Í70 IFMID<MFR'ü,N,i><>" "THENNEXT 
Ü80 FORMÃO TO WS 

1190 1 ^ f : N S * ( M ) = M I D S < F RS,N+i>THENIS - J *+ C H 
R$(M+50) SGOTOÍ230 

*í O /* /> w i r" v/ *v i< - r» iN »•«••«... . /, _ . 

O que p' "íMIDSÍFRS. 


s.cíOO NEXTM : PR INTUI , 


* : 


* #• * 


® ! 

© 

• 

i 
i 




: b OTO 


& 


« ! N+i > ?" ?" : GOT 0340 
1210 REM 

Í2E0 R F H «o CODIFICA ACAO EH I9i 
1230 PS = CHR 9 ( P C + 00) +CH R <6 < f> L. + 60) 

.1. 2 4 0 IFLEhK II ) < > 11 HENDOSUí! i 520 
•1250 FORN»0TOAS 
, .1.260 IFI S - ACí < N ) TMEN1330 
♦ 1 1270 NEXT 

1280 lPLEN(IS)slTHENi320 
1290 FORN-“AS+ilONA 

1.300 IFLEFT5 < 19,1 ) -A CS ( N ) THEN1 330 
1310 NEXT 

1. 320 P R I N f M 1. , " I s l o n ci o t: p o s ç; i v e 1 
340 

1.330 ON ( N+i > ROSUB 1 620 , 1630 ,1630, 1650 , 1 66 
0 , 1660 ,1660,1. 670 ,1680,1 700 ,1720,1 730 , 1 74 
0 , 1770 , 1 790 , 1 700 , 1 SOO , 1 R30 ,1840,1. 860 ,189 
0 , 1910,1930,1 940 , 1970 , 1 990 , 20 1 0 , 2030 , 206 
Wt 1630 

A 340 IF N< 30 THEN 3-40 

1350 0N( N -29 ) GOBUB1630 , 1620,2100,2160,21 
70,2180, 2 1 90 , 2200 , 296C , 2230 , 2240 , 2260 , 22 
'' 0 , 2230 , 2310 ,2330, 2370 , 2450 , 2520 ,2610 26 

50,2740,2760,2920,2940 

1360 GOTO340 
1370 RFM 

1380 REM D APAGA 3 LINHAS SUPERIORES D 
1390 L I NE < 0 , 8 ) - ( 255 , 23 ) , 1 5 , B F 
1.400 PSET <0 , 8 ) , 15: RETURN 
1410 REM 

1430 REM ******* FINAL DE JOGO ******** 
1430 SOUND7,56:PLAY' / T200O2L8S0M8000F2F4 
FF 2G + 4 . GG4 . FF 4 . FF2" 

1440 FORN-1TO6000 : NEX 1 5G0SIIB 1390:PR INTtti 
, "Guer jogar nuvamente (S/N) 3" 

1450 I9*INKEYS 


=1 

'"l 

*1 

"1 

"1 

"I 

"1 

'"1 


7R 




1460 I F I $ = "S "OR 1 9> = ' s' THE NR UN 
i 4 7 0 I F I $ = " N " QR I $ = " n " T H E N N E W 
1480 IFI$="U"THEN340 
1490 GOTO 1450 
1500 REM 

1510 REM ** VERIFICA OBJETOS CITADOS ** 

1520 J=ASr, ( MTD4) ( I®, 2, i) ) -50 : IFLEFT® (Süí < 

J>,2)=P® OR LEFTSCSUÍ < J) ,2)=--"**" OR L.E.FT 

®(5U®( J) ,2)=". OR I FFT<B(IÍ, 1)=">" OR L. 

EFTí (11,1 >="9" THEN 1540 

1580 i-J:GOTO15fr0 

1540 IF LEN < 1$ > < 3 THEN RETURN 

1550 I=ASC (MIDI ( IS, 3, 3) ) -50 : 1F LEF14(SU® 

( I > , 2 ) =P $ OR LEFT*<SU*<I) r 2)="**" OR LE C 

T® ( SU$ ( I ) r 2)=". . " THEN RETURN 

1560 PRINTM , "Nao estou venço "í FNS$ < I ) : 

GOTO340 

1570 REM 

1580 REM ** DESAPARECE OBJETO CITADO ** 
15y<? SU®(J>=" "+FNS$< J> : RETURN 

1600 REM 

1610 REM *»** 5U8R0TINA5 DAS ALOL.S «*** 
1620 PRINTtti , "Mai s do que ja estão ?":RE: 
TURN 

1630 PR TNTIí 1 , "Est a ' bem- Ficou em tiras. 
'/ 

164C X<í >=e:X<0)=0:SU®( i ) ="*x"+FNS$ < 1 ) : G 
OTO 1590 

1650 PR INTUI ,"0k , mas e' um desperdício. 
" : GOTO 1590 

1660 PRINTKí,"Ok, nao parecia ser muito 
util mesmo...": GOTO 1590 
1670 PR INTUI , "Ok , mas nao sei porque fez 
i ssn . " : GOTO 1590 

Íó8e PR INTUI , "As "jMID5(SU*< J) r 3) tran 
sformar ani-se numa " r FNS1 (2) r " ! " 

1690 Slll (2>="*#" + FNSÍ < 2 > 5 GOTO Í590 
1700 PR INTUÍ , "Ok , e ela vai ate' o -Fundo 

it 

1710 X ( 0 ) =1 : SUS ( J ) =PS»+F NS$ ( J ) : RETURN 
1720 PR INTUI r "Nao da\a "fFNSKDf" e ' d 
e alvenar ia.": RETURN 
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I 

* í 
» 
t 

ifc I 


í 730 
.1.740 
Nada 

.1.750 

« 


PR INTtti r 7/ 0k /y : RETIJRN 

IPX ( i ) =0 OR PM>" CC" THEN PRINT#j," 
ocorreu - " s RETiJRN 

P R I N TI} í r " A chave ve i u j u n t o c o m e 1 a 


* l 

! 

& ! 
i 


«■ 


«• 




Tal vez s 


doente? Necessita 

" : RETLJ 


.1.766 SU5(3) = "** ,/ +FNS4<3) : RETURN 
1770 PR I NTtti , "Nao estava boa... 
e» tempero." 

1780 GOTO Í590 
1.790 P R INTtti , "Voce e ’ 

de um psiquiatra" Nao vou faze-lo 
RN 

1.800 PR INTtti ,"F icou muito arrumada... 
1810 SUS ( J)=P*+FNS4<J> :RETURN 
1820 PR INTtti , "Ok . Acho que agora vai 
c i on a r " 

1.830 X < 2 ) -í : GOTO 1590 

1840 PR INTtti , "Fnca i xou rerfeitawcnte. 


Fun 


// 


tf! 1850 X < 3 > ~í : GOTO 1590 

* j ÍB f® IFP*0"?F" AND P5< )"B3" THEN PRINTtt 
i i,"Nao vejo nenhuma por t a RETURN 

•S iQ7<d IFPS-"Ba" THEN PRINTtti , "Nao ha’ esp 
tf i aco para c: ol oca -1 o RETURN 
; 1880 X(4)=i íPRTNTttí , "Coube sob el a.": SUS 
' i < J)=PS + FNSS< J> SRCTURN 

* í 1890 PRINTtti r "Ei e o abafou ! ":SU$< J)=P4+F 
tf í NS#< J) SSUS( T ) =" J J"+FNS4 < I ) 

| 1900 POJ,(PC,PL)="0000":VPOKEED-32 r 0:GOTO 
! 3270 


•5 1910 S0LJND7 , 7 :S0UND8, i 6 JS0UMD6 , 0 : SOUNDi 3 
tf i r ® : SOUNDi 2 , 50 s F ORG=0TO1400 : NEXT 


<$, j ^-920 PRIN7#1,"0 local -ficou cheio de fum 
jaca e vo r P morreu asf i * i ado !"s GOTO 1430 
•| 1930 PR INTtti , "Ok . ..":X<5)=í: GOTO! 590 
tfj 1940 80UND7 , 56 : S0UND8 , 14 s SOUNDI r 5 :FORQ=0 
! TO 25 5 : ROUND0 ,Q: NEXTí S0UND3 , 0 
■ Í950 PR IN i tti , "Voce conseguiu! desativou 
* j o alarme!" 

tf! i9óí) POS ( PC ,PL ) = "1000": SUS < I ) = " J J"4 FNSí < 

• I> :OPOKCED-i,0:GOTOÍ590 

Í .1.970 PRIN I « 1 , "Agora ela esta’ pronta pa 
®! ra f une i onar . " 
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1.980 X ( 6 ) = í : R E T UR W 

1VV0 SOI 'NI.' / , 56 : PLAY"Vi 3L32A07B02C05D01E0 
8FÔ4G":FORÔ=0TOi0< 0:NEXT 

2000 PR INT#i , "Entrou em cur t o ! "sPOÍIi < PC , P 
L ) = "00í 1 " : UPOKEED-32 , 6 : SUS ( 1 >=" JJ"~FNS4 < 

I ) : GOSUB15?0:GOTO2970 

2010 I F X < 2 > - 0 THEN PR INTtti , "Nao funciona 
. . . " : RETURN 

2020 P R T N T ii 1 , " E s t a acesa . ":X(7)=1 : RETUR 
N 

2030 IFX(6>-0 THEN PRINT#í,"Nao quer lig 
ar . . RETURN 

2040 PR INTltl , "Est a ’ 1 i gada . " : X < 8 ) = 1 
2050 S0UND7 , 56 * OOUND í , Í5:S0UND8, Í6=S0UND 
1 3 , 1 4 : S0UND12 , í 0 5 RETURN 

2060 1 1 X ( 3 ) - 0 THEN PRINTttl , "Acho que est 
a’ quebrado... Nau funciona de modo alg 
um.": RETURN 

2070 I FX ( 5 ) =0 THEN PRINTMÍ , "Fal t a alguma 
coisa para se ouviralgo no gravador..." 
: RETURN 

2030 BEEP : PLAY"O3L4B0M5000C2CDE2. EFEDCD2 
. V I 2GI L2CEDCC02B03C", "06L4U7E2DCD2 . EFEFE 
[)2 . FF2EDE2DCDDEDC" 

2090 PR INTtti , "Toca uma musica suave... D 
a’ vontade de dor m i r . . . X< 9) =i s RETUR 
N 

2Í00 I F P 1 < > " B 3 " AND Pl< >"?F" THEN PRINT# 
i r "0nde esta' a pnrta?"sRETURN 
21 Í0 IFP* = "?F" 0R X < 8 ) -0 OR X<ó>=0 THEN 
PRINTtti,"Ela esta' desl i gada. RETURN 

2 i 20 S0UND7 f 56 : SOUNDQ, í 5 : B0UND9 ,15: BOUND 
i r 2:SOUND3,7:SOUND0,255!SOUMD2,255sFORQ=* 
1 T 0500 : NEXT : SOUND 1,0: S0UND3 , 5 
2130 FOR Q= i TO i 000 : NEXT : BEEP 

2140 PRINTtt1,"A " ; FNSí < J) caiu em peda 

tf 

C 05- 

2150 P0$<PC,PL)="00í í": VPOKEED-32 , O s RETU 
RN 

2160 PR INTUÍ ,"0fc . . . " : X ( 6 > =0 : S0UND8 , 0 = KET 
URN 
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2 170 P R I N T 'ti 1 , ' E s t a ' fora.:XC2)=0:X</)=0 
: S U * < J >="**"+FNSS ( J ) ! RET ü R N 
2 180 P R INT"Ok . . . "i X < 5 ) -0 = X < 9 ) -0 = SUS < J ) 
**"+FN8$< J) sRETURN 

2190 PRINTH 1 , "Ok . „ . Mas; o que voe: e vai f 
azer com el a?" =X < 3 ) -0 s X < 9) ~ô = SUS ( J ) -"*« 
"+MID5<SUKJ) ,3) sRETURN 

2200 S0UND7 , 7 : SOUNDó ,10: SOU ND 8 ,16 = SOUND 1 
3 , 12 : SOUND 12,10: FOR Q=0TO2500 : NEXT : SOUND 8 
, 0 : VP OKEED + 32 , 0 

2210 PRINTHÍ, "Um buraco foi aberto." 

2220 P09> < PC , PL > - "001 0" : G0T01 5 9 0 
2 2 3 0 PR I N T H 1 , " E sta ' no corpo. T e m u m c: a i 
mento perfeito! "sRETURN 
2240 IFX(0)=0THENPRINTHi ,"Voce foi diret 
o para o fundo. Morto i nst ant anca . . » " s 
GOTO 1430 

2250 OOTO3010 

2260 PRINTH 1 , "Nao era pura! Voce morreu 
cont a-m i nado." : GOTO! 430 

2270 PRINTHÍ , "Voce ficou bêbado e entres 
ou-se.Voce nao tem inteligência alguma": 
GOTO 1430 

2280 3FPS-"CC" THEN PRINTHÍ , "Abr i u ! : PO 
<f. ( P C , P I... ) == " 1 1 0 0 " : U P 0 1< E E 0 - 1 , 0 : G 0 T O 3 2 7 0 
2290 IFPÍ“"EB" THEN PRINTHÍ , "Abr i u de no 
vo ! " : P 0$ ( PC , PL ) -"06 1 0" : UPOK EED-Í , 0 : GOT03 
270 

2300 PRINTHÍ , "Nao estou vendo grades. "sR 
ETURN 

2310 IFPt-"D3" OR Pi-"?F" THEN PRINTHÍ," 
E st a r t: r a n c: ad a . " : R E I UR N 

3330 PRI WTH 1 , "Nao ha’ nenhuma porta por 
per t o . " sRETURN 

2330 1FL.EN ( 19») =2 THEN PRINTHÍ ,"A quem?": 
RFTIIRN El SE IF 1022 AND 1025 AND IO 3 
0 THEN PRINTHÍ , "Voce esta' louco? Por <iu 
e nao fala com pessoas?": REI URN 
2340 IFI<bO">2H" OR P$0"CC" THEN PRINTH 
1, "Ouviu o que disse mas nada fez."sRETU 





2350 PR INTHí , "El e- satisfez seu pedido e 
saiu, deixando a chave la’ fora...” 

2360 SUS ( I > ="CD"+FNS$< I ) : SUS < J ) -Pí +FNS9 < 
J) sRETURN 

2370 IF 1 %="? > S" THEN GOTO 1990 
2380 IF I5="?>N" THEN GOTO 1910 
2390 IF ]$="?=N" THEN GOTO i890 
2400 IF I*-"?40" THEN GOTO i700 
2410 IF J < 22 AND U< >2 THEN PR INTttl , "Voce 
perdeu o objeto. ":G0T0Í590 
2420 IF J >2i THEN PRINTH 1 , "Uocc nao e’ t 
ao forte ass i m . . . " sRETURN 
2430 IF PSO "CC" THEN PR INT# i , "Nada acon 
teceu. . . "sRETURN 

2440 IF LEFTS ( SUSB (22) ,2)="CD" THEN PRINT 
dl, "Encostou num objeto la’ fora. Nao 
da’ para ver o que e ’. ":X< i > = i sRETURN EL 
SE PRINTHi , "Nada aconteceu, ainda..."=RE 
TURN 

2450 IF 109 THEN PR INTH í , "Com o que ?!" 
: RETURN 

2460 IF J >21 THEN PRINTHi, "Nao da’ para 
faze-lo. "sRETURN 

2470 IF U=í 0 AND X(4) = l THEN G0T02490 
2480 PRINTHi , "Se desfez em c i nzas . . GO 
TO 1590 

2490 S0UND7 , 7 :S0UND6 , 30 : S0UND8 , i 6 : SOUNDi 
3 , 5 : S0UNDÍ2, 30 sUPOKEED-32 , 0 
2500 F ORQ==0T 02000 s NEXT 

2510 PRINTH1,"0 " ; FNSí ( 28 ) ; " abriu uma p 
assagem ! " : POS (PC, PL >="00í i" : RETURN 
2520 IF J>2Í THEN PRINTHi , "Nao da ’" sRETU 
RN 

2530 0=0 : FORN=0T ONS: IFLEFTí ( SUí < N ) , í >="* 
"THENQ = Q+ í 
2540 NEXT 

2550 IFO >5THENPRINTHi , "Nao da’ para pega 
r mais nada. " sRETURN 

2560 IF LEFT $ < SU3i ( J ) , 1 ) ="*" THEN PR INTH 1 
,"Uoce ja’ esta’ carregando este objeto 
."sRETURN 


&i 2570 SUS< J)="**"+FNS$< J) : PR INTHJL , "Ok ." 
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n i:- 


500 


2590 


TF J=2 THEN X<0>=0 
IF J+Í0 THEN X<4)=:0 
2600 RETURN 

IF LEFTKSUKJ) ,!><>"," THEN PR INTif 
carrega "íFNSSi J) sRETURN 
c^6c..<ò PRINTHi ,"Esta ’ no chao." 

2630 SU$< J)=PS+FNS5< J) 

2640 RETURN 

2650 IF 1022 AND 1025 AND 1030 AND T< 
>32 THEN PR INTtt i , "Acho qUB a priLo afet 
ou seu QI . : RE I URN 

2660 IF I*="CCR" THEN PRINT«i,"0* ca GS d 
evoraram abraço. Assim fica imposs 

ivel a fuga. : GOTO 1430 

2670 IF I9j="C2K" THFN PRINTH 1 ,"E1f aceit 
ou e deu dinheiro em troca a voc«r ! "s SUSC 


>="** 


"+FNS%(5) z GOTO! 590 


acpi t 


i 2680 IF IS="C7H" THEN PRINTHi ,"Ele 

• * de, «ou voce passar SUt (5) ="IG"+FNS 

! P0Í(Pr U pi < ^"rIaa« +FNSS<22> !VP0I<EED+32 ^ S 

. t 0$(PL,PL)= 1040 SGOTO3270 

2690 IF I3>="C7P " THEN PR INTUÍ, "Ele nao e 

' ) 7M ,jb0rnaVeI ■ Uace foi morto." .-GOTO 1430 
2780 IF IS="CDP" THEN PRINTUi,'™. 

Ai «"bor*|"spoS(PC,PL>-"i00J''sVPOK 

*j E-ED+l ,0:GOSUB3270 = GOTOi590 K 

* i 27 * ® IF LE.‘FT'i ( bU% ( J ) , 1 ) < > 

& j *-r"Mas voce nao carrega esse 

I türn 

J teceu!" INTtti ' ,ElG ac * itcUr mas nad * »«n 
2730 GOTO1590 

>?Í%hfm J dd?2tÍ ND ^ J<> 25 ANt> J<>30 AND J< 
>3c ; THEN PR INTtti , Seu luyar nao e ’ aqui. 


THEN PRTNTtf 
objeto ! ":RE 


I f? 


no 


man i com i o . " = RETURN 




2750 PR INTUÍ r "Voce foi morto 
ud es se fazer algo.": GOTO 1430 
2760 IF J=7 THEN PRINT#i,"E” 
muito potente. ":RETURN 
2770 IF J=8 THEN PRINT»fí,"E' 
RETURN 


antes que p 


cletr i ca 


e 


de i. 5 V. 




BE 



tf I 

tf I 
I 

I 
I 

i 


2780 


* 










II- J=9 T HE N 
chc i a . "sRETURN 
2790 I F J=í i THEN FRINTtti, 
."sREFUKN 

2800 IF J=i 4 THEN FRINTHi , 

e musica. "sRETURN 

2810 II- J= Í5 THEN FRINT8Í , 

asset p . " sRETURN 

2820 IF J=i9 THEN PRINT#!, 


: 'RTNT«í,"A caixa esta 


ft 


a." :RETURN ^ 

2830 IF J=?0 THEN PRINTi 
as boas !":RETURN 
2840 IF J=23 THEN PRINTi 
i joios. "SRETURN 
2350 IF J=24 THEN PRINT' 
ito res istente. "sRETURN 
28*0 IF J=26 THFN PRINT 
RETURN 
2870 IF 
ou I Na o 


J=28 THEN PRINT#! , 
devia examina-lo!" 
2B80 IF J==2? THEN PRINTHí, 


o. Nao 
2B90 I 
ciais. 


da ' para verseu 
F J=32 THFN PR IN 
" : RETURN 


"E ' 

bem grosso 

"E ' 

uma fita d 

"E ' 

de fitas c 

"E ' 

de b o r r a c h 

"E ' 

pingar e cl 

"E r 

feita de: t 

"Sao de aco mu 

"E ’ 

de i 1 0 D . " : 

"Uoce se queim 

: GOTO í 430 


muito fund 

ral - 

"sRETURN 

"Sao caes pol i 

= 30 

THEN PRINTI* 

iao 

gosta de se: 


<& . 
I 

® I 


2900 IF J=22 OR J = 25 OR 
l r "Voce foi morto... Ele 
r exani nado. " s GOTO 1430 
2910 PRINI#i,"E' comum. " : RETURN 
2920 IF J<>2? AND J< >25 AND J< >30 
PRINT#! , "So ’ uma pessoa 


>32 THEN 


AND J< 
com sua 


mental i- dade diria tal co i sa . "sRETURN 


naa go 
f 


2930 PRINTH1 r "Uoce foi morto. Ele 
st a deameaca5 . " sGOT 0 1430 
2940 IF J<22 THEN PRINTHÍ ,"Ok . . . Esta' 
eito...": GOTOl 590 
2950 PRINT#!, "Nao da RETURN 
2960 PRINTHÍ , "Ok ..." 

2970 SOUND7 r 7:SOIIND8,íós SOUNDi 3 ,0SSOUND6 
,28:S0UND12 r 20 sRETURN 


* ; 2980 GOTO 2960 

| 2990 BEEP s PI. AY"O 15 Li 03 E // ," 0 í 5 Li 03 B"sF 0 RE 

* \ 9=0T 02000 s NCXT : BEEP 
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3000 RETURN 

3010 GOSUB1390:PRTNT#Í /'Uoce saiu por um 

a passagem se- creta! Voce escapou de A 

LCATRAZ ! " ' S0UND7, 56 
• // 


«• 

* 


& 


* 




j 3020 P LAY T i 20L4O5O9EEFGGFEDCCDEE . D8D2EE 
PGGFEDCCDED . CBC2" : GOT03020 
3030 READX , Y 

3040 FORN=0TO65sREADA,BíLINE(X f Y >-<A,B) : 
X=A s Y-B :NEXT 

3050 L I NE ( 20 , 114) — (208,114) 

3060 F0RN=íT08:RFADA 
3070 PAINT (A, 00) sNEXT 

30B0 COLORI :PSET< 104, í 17 > , 15= PR INTttl , "A 
FUGA IMPOSSIUEL": C0L0R8 

3090 PSETC 12,8) , 15:PK1NT»1 , "Programa de 
U) i 1 son F. Mart i ns" 

3100 PSEK24, 170), 15:PRINT«i, "Tecle tb'P A 
CO para comecar." 

3110 IFSTRIG<0) -0THEN31 10 

3120 LINE(0,8>-<255 r 15) , 15 r BF: LINE <24, 17 

0 ) - ( 255 ,Í77),15,BF 

3130 FORN=0TO?:UPOKE6370+N*35,0 

3140 S0UND7,7sS0UNDG, i 6 S GOUNDÓ , 25 : S0UND1 

3,0: SOUNÜ 1 2 , 20 

3150 FORM=0TO100 : NEXTM, N : RETURN 

3160 DATA 10,41 , 18, 3C,3C, 19,40,01 

3170 DATA 10,10,10,10,10,10,10,10 

3180 DAT A44, 78, 44, 78, 16, 114, 28 , 114,36,10 

3.36.114.44.114.44.78 

3190 DATA 48,78,48,114,72,114,64,106,64, 

106.56. 106.56.78.48.78 

3200 DATA 72,78,72,114,96,114,88,106,80, 

106.80.86.88.86.96.78.72.78 

3216 DATA 124,78,96,114,108,114,116,103, 

116.114.124.114.124.78 

3220 DATA 124,78,132,86,136,86,136,114,1 
44 ,114,144,86,148,86, í 56 , 78 , i 24 , 78 
3230 DATA 156,78,156,114,164,114,164,98, 
172,114, 180,114, 172,98,180,98, 172,78, Í3Ó 
,78 

3240 DAT A208 , 78 , 100,114,192,114,200, 103, 

200.114.208.114.208.78 




n 

rí 

ri 


n 
rí 

9 

n 


n 


§ 
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I 3250 DATA 208,78,240,78,224,106,232,106, 
* j 240 , í 1 4 ,203 ,114,224,86,216,86, 208 , 78 
® i 3260 DA I A 43,49,73,123,127 ,159,207 ,220 
f\ 3270 S0UND7 ,56:PLAY"04V1 3L32CFB" * RETUR N 
*S 3280 REM 

j 3290 R EM * DACOS DO LABIRINTO * 

^ Í 3300 DATA 1001,1010,1001,1100,1100,1009, 

® j 1100, 1 100, 1 100, 1100, 1010, 10C1 ,1100 , 1010 
$ ! 3310 DATA 0011,0011,0101,1100,1010,0011, 

.. i 1001 ,1010,1011,1011,0011,0101,1010,0011 
! 3320 DATA 0011,0011,1101,1100,0110,0011, 

♦ i 5011,0101,0110,0011 ,0011 ,1011 ,0011 ,0011 

3330 DATA 0011,0011,1001,1000,1010,8011, 

- I 0001,1100,1100,0010,0011,0011 ,0011 ,0011 

Í 3340 DATA 0111,0101,0010,0011,0011,0011, 

® j 0011 , 1101 ,1100,0612,0011 ,0101 ,0010,0011 

$ | 3350 DATA 1001,1010,0011,0011,0011,0011, 

! 0001,1102,1110,661 1 ,001 í ,101 í ,0011 ,01 11 
•3360 DATA 0011,0011,0111,0011,0101,0110, 

• Í 0101 ,1340,1111 ,6611 ,0011,0101 ,0100,1010 

i 3370 DATA 0011,0011,1001,7000,1010,1101, 

* Í 1100,0100, 1010,6111, 0011,1001 ,1100, 0E10 

; 3380 DATA 001 1 , 001 i , 001 i , 501 1 , 01 0 í , í 1 00 , 

* í 1 100 ,1110,0011,1 001 ,0110,0011 ,1001 ,0110 

<8 i 3390 DATA 0111,0101,0110,0101,1100,1100, 
^ j 1100, 11 00, 0Ü0, 01 Al , 1 IDA, 01 10, 0101 ,1110 

* i 3400 R Eh 

! 341.0 REM *** SUBSTANTIVOS *** 

$ ! 

! 3420 DATA J JCOM IDA , J JT I R AS , J.1C0RD A , J.JEHA 

• i VE , DC LENÇOL , IGDINHEI RO , AELANTERNA , "E?SER 
e ! RA", "D°P ILHA" , EEFOSFOROS , AR.JOR NAL , CB COBE 

* I RTOR , < 6 AGUA, AER EVOLVER , < BFITA , >3GR AVADOR 
! , G3PA , >DOSSO , "D ?B AR ALHO" ,FAROUPA, GCB EB ID 

® j A,CFESPELHO 

* ! 3430 DATA CCGLIARDA , DCCAMA , . . GR ADES , CE PRE 
• ! SIDIARI0,B3T OMADA , . .PORTA , "?EFOGO" , I CPOC 
« I ü,G>CARCEREIRO,IETERRA,EGCAES,AAALARME,A 

® ! >LUZ 

| 3440 REM 

• 13450 REM *** VERBOS *** 
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<h : 




3460 DATA rasgue , amarre, puxe, coma, coloqu 

E , LIGUE , COR TE , T IRC , CAVE , DISPARE , VISTA , EN 
TRE , P ECA v JOGUE , QUEIME, PEGUE , SOLTE , DE , MAT 
E, EXAMINE, AMEACE , QUEBRE, ElLfc A, ABRA 
3470 REM 

3480 REM **# AUOES *** 

3490 DATA 23 , 24 , 26 , 27 , 2 < r 2= ,2D ,2E , 33 , 340 

, 341 , 34 J, 44 , 52 , 5C , 640 , 661 , "6 í O", "6 s A",6< 

M , 6=N r 6 > N , 6Í3A , 6GT , 69L , 6 >S , 7R , 79 , 7A , BS , 84 

, 83 , 0M9 , 99L , ,, 9 : 8"" , 95lA , "9 : A" , " : QB " ,"f , < 

E , =0 , H > , HF , I J5 , 1 M 

3500 DATA >,?,Sl,A,B,C,D,E,F,R 

35i0 DATA 00,00,00,00,00,00,00,00 

3520 DATA 01 , 01 , 0i , FF , 10 , í 0 , Í0 , FF 

3530 DATA 18 , í 8, 18 , 18 , 18 , Í8 , 18, i B 


© j 3540 DATA 1 8 , 1 0 , 3C , 5A , 99 , 1 8 , 24 , 24 


! 




«■ i 


* ! 


*> ! 


<fe ! 


I 


3550 DATA 02,02,02,02, 3E,3E, 22, 22 
85Ó0 DATA 00, 81, FF, FF, 02, 00,00, 00 
3570 DATA FF, FF, FF, FF, Fr, TF, FF, FF' 
3580 DATA 08,28,3A,7A,7F,7E,3E, 1C 
3590 DATA 'V , 0F , 05 , 07 , 07 , 00 , 00 , 00 
3400 DATA i8,18,i8,i8,i8,iB,iB, 18 
3610 DATA 18,3C,7E,FF r E7,Q3,C3, C3 
3420 DATA 06 , 0E , 1F , 7D, DF , F6 , B B , EF 
3630 DATA 1 8 , í 8 , 3C , 5A , 99 , 1 S , 24 , 24 
3640 DATA 00,00,00,00,00,00,00,00 
3650 DATA í 8, 1B, 3C,5A , 99 , i 8 , 24 , 24 
3660 DATA 00,00,00,00,00,00,00,00 
3670 DATA Eó , Eó , E6 , E6 , E6 , Eó , E6 , E6 
3680 DATA 10,40,10,40,10,40,10,40 
3690 DATA 10, D0, 10,10,10,10, 10, 10 
3700 DATA E0,E0,E0,E0,F0,E0,E0,E0 
3710 DATA 10, 10, 10, C0, 10, 10, 10, 10 
3720 DATA 10,10,1.0,10,10,10,10,10 
3730 DATA 60,60,60,80,80,80,90,90 
8/40 DATA 10,10,10,10,10,10,10,10 
3750 DATA 70,70,70,70,70,70,70,70 
3760 DATA 90 , D0 , 80 ,60 , P 1 , T 1 , F i , F í 
3770 DATA 90,90,90,90,91,91,91,91 
3780 DATA 10 , D0 , F 0 , F0 , F0 , F0 , F 0 , F0 
3790 DATA 00,00,00,00,00,00,00,00 
3800 DATA F0,ó0,í0,F0,i0,F0,i0,F0 


=1 




A 

-3 
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gincana 

VOCi d.». G MÍ"; 0 ‘ ScÍÍIl«ÍÍ P !.I 0 t- , " PI '°* S '- M 

t«r™ ,, “ a,r " ,sses 

Encher a bixiga 
Tiro ao alvo 
Pau de sebo 
Corr I da de sacos 

Para encher a^eüTga* e^uante^n-fc VÊ — a US3r 3S setas 
'a, mais pontos ganhará* Caso^nra a rap,do v ocê enenê- 
PO ** esgotará e 9 voei pe?olr° á 'SÍ fl!"' muÍto - 0 

penas uma tec I a “Já/ ‘ JJJ ° seu dese n>Penho, pressione a- 

cê pressionar "os 3 n úmeros *0 f °i 3 % a i V ÍI ^ consiste em vo- 
35 e5PÍn3 0 u d JL de n r er ° S edU ' valentes . C3ra 3tirar c °* 

Pressionar o número «ia e°p i náarrt 5Cender ' ^ocê deve rá 
contrário a espingarda stlíl?| Uma vez - caàu 

caso você acerte ou e?rí ! íriíí??» í” se9uldas * 

Sera "«'■ j «« -ta., vocl íid. 0 ' ° Se9Und0 

ou q uando°o , ?e 9 í p : e ;;;;f n3 q r uando V0C§ errar quatro vezes 

Oeveré Press fona/*!”}!?!?! 5 *! ‘° é 0 f au de seQo - Você 

ou o tempo terminar e Você íêó tfvV^f V0,t 5 r a0 
voce perderá uma vida. t,ver a,C3n C ad ° o tope. 

«»«» d=«M" e a ; f , r a e „ , f s 8 ' »• «=' 

Pressionando as teclas do cS7sSf C ° rra (ou pulc > 

versamente U 8 pr C por cÍonaí ' ao 'temor "rJ 0 Uma PDntliacão i n - 

«juanto menor o tempo de corríd- de ccrr,da ' °u seja ; 
nhará. pc 06 corrida mais puntos você ga- 

. Ao * °comp íetar 8 quã.*tl°f fs» *vnr“ tr f? '< da *- 
a primeira, com um nível de d fiíuiLdp 3 voltará para 

to ao longn P de 9 totíc o I i vío^todÕTcSí /7Y 0n,os Ói ~ 

* . nhas * ‘W*!**. 

inzr ser ■ 

Boa sortel 
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Fiura 8.í - Prngraia GINCANA . 


NJ A 


de Marcos Guazel 1 i 


í 


aI X2=0 • X6=— 1 : X7 = . 2 = OS-O « PL=OsP = 0 *HU=0 = F 
S® 0 PLAY"c 6 d 6 e 6 f 3n0+ 7n0f 7 r 8 c. 6dóc 6d 6rQá6n * 

dOraócóyófóeór -óeónôeócódóeóf 6 n 0 r ló( n 0 PU 

70 LOCATF 14 , 5 s PR 1 NT G I N C A N f 
80 LOCAIEÍ0,if. = PRINT"CURSOR Oü JülbTICKÍ 

I5»°iFGAÍ-"C"OR6A*= ,/ c"THENAM*esGOTOi3® 

1 10 IFGAt^"J"ORGA4^ ,/ j ,, THENAM-i:G01 0130 

120 GOTO 90 

140 F0RG=lT025STEP4sCIRCLE<7vi,&+7j),G r . 

r IRCLE < 125 7 G+75 ) , G , 4 : CIRCLE ( 17>> ,G + 7»> > ,G, 
A’ Cl RCLE< 200,6+120) , G ,4 : CIRCLE < 100 r G+ 1*-® 
Í:“ 5 S»SLE< 5 ^G + 12 »),G r 4 .CIRCLE< 158,0 + 
120) , G , 4 : NEXTG 
150 FOR HJ-l T 0300 • NEXTHJ 
! Íó0 SCREEN2, 2 5 J— 0 .., ur . YT l< 

i 170 FORK=80TO100:PSFT(K,ie0>7Íi-NEXTK 
i 180 FORK=?0TO100 = PSF.T(807l<>7Íi-NEXTK 

i 190 J=J+4:CIRCLE<B0,i70> 7 J 76 , ,3.io, 11 

Í 200 IF J >— 70THENGOT 0 220 
; n í(& GOTO 190 

| 220 IFSTRIG(AM) < >0THENP=0 S GOT 0 240 
| 230 GOTO 220 
Í 240 IFOA=ÍTHEN1840 
! 250 C=STICK (AM) : P-P+i 
! 260 IFOH-" >X+Í 50THEN570 

! o 7 0 OSsOS+lsCIRCLE(A+i0O,i®®>»A,4rr»l 
1 7,n» IFC=7THENA=A4 í i FORWE-80TO90 • PREotT 8 
j 0^UE) sNEXTUE^FORX=7ST085 : PSETÍXr 90) IPRES 
,! ET ( X, 80) sNEXTX s N=i * GOTO 370 
i 290 GOTO 250 
' 300 IFOS- >X2+Í 50THEN570 

• 310 D-ST I CK ( AH ) 
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•! j??® IFA*>50THENFORHJ-iTO3eSTEPS:ciRri m 

• j ^ ’ 100> rH J r 4:NEXTHJsPLAY"MNiMNÍ"sGOTO 39 

330 P=P+i :0S=0S+1 
j 340 C.'[RCLF(A-fl00, 100) rAr7 . 

6 i ??? íí-P = jr HENA=;A+i : P ORL— 807 096 sp S ET ( 00 I 

S* j 360 GOTO 300 
& | 370 IFW=1 THENGOTO 300 
380 IFN=2THETNG0T0 240 
! 390 SCREEN0 

J ^\^.~ L=0!GOTO «• 

•I «: rsssfíiiíjíísíss'-"*»'"*^» 

• í SCREEN0 

• IJt’? L°CATE15,i«spRiM T « t j ro ao alvo" 

|^70 L0CATE2, 14:PRINT" cn&« < s ». r _ T 

• í «" i esss** « 3 ■ a » » * 




© 




22 t^^iS^rSSííUtí 

< i ) + CHR * < 71 ) : FORE= 1 T01 00 : WFYTF - ur y T n ' ’ R ' ’ 

Ipllllii 

! . T '^ 7ri4 “ PR1 ’ N ^ CHR ® íi88J : NEXTUI 
rit í:? C ^ TEi ^5:PRlNT"PRESSI0NF ESPAÇO" 

“I SSSÍS T HEN6OTO560ELSEGOTOé30 

12 UHA VI “" 

600 Z6=Z6+1 

610 IFZó— 3THEN3Í 70 
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\rvrv> V\> \» b b b b V. b b b b \nj V. V» V» i» i> O 1> V. 1» 


«f i 




Cf ! 


€* 


620 BOTO 340 

630 COLORÍ, 15, 13ESCREEM2 

640 FORB G-25T065 : PSET (BB, 30 > ' f < E L ' * 7 ' 

=PSET(BG,120>:PSET<BG r i70>sNEXTBÜ 

650 FORT = 25TO60sPSET(1-i0,/i > • P ‘ jE (T 

PSET < T~8 ,173), 12 p.pc; 

6B0 PSET <T-i0,3í> , 12* PSET (1-9 ,3<.) rí*- P 

ET < T-B ,33), 12 
690 DATA 00000000 
700 NEXTT 

7 ,\\ p?i[n < (V, 74 > ”, i * PSET CG ,34 ) » í : PSET <G , 1 24 
Vfí íPSÉT <ü , 174 ) , isPSET <G+3,34 ) sPSETtfi + Jj. 

74) :PSET<G+3,í24> :PSET (G+3, 174 > A oET<b 

730 ) P sí 1 G + 7~, i 25 > : P SET < G+2 , i 7 3 ) = P SE T ( 6 + i 
3 ) r ^ G 1 76 ) = P SET < GA , i 26 ) *PSET< 6+ 1 

; Í76 )^s P SET < B+i r 37 > : P SET < G+ i , 77 ) sPSET < G+ 1 
127 ) sP8ET<G+í , Í77 ) sNEXTü 
740 FOR PI --30 TO 35 : PR ESET < H , 34 > ■ P J ^ SE ^ ai í 
> .PR ESET < H , i 24 > : PR ESET ( H r ■ IA P Rtfat ; I < H , J 

* ! i ) ■ PR ESET <11, 75) s PRESET < H , i 25 ) * PRtSET ( H , 1 

75 ) : P RESET ( H , 36 ) sPRESET < H , 76 > 2 PRESFT ( H , í 

26) sPRESET <H, 17 6) sPRESET <H, 3/> 

' 750 P RFSET ( H , 77 ) s PRESET < H , i 27 ) » PKESET ( H , 

7 6 V POrÍ™0TO35 = PBET <1 ,30 > = PSET ( 1 , 128, .P 
cjtt ( T 7B ) 5 PSET < I r 178 ) = NEX 1 .1. 
i 770 PSET (32, 35), 3: PSET (33, 36), 3 -PSET <32^ 

1 34 ) , 3 : PSET (32,75) , 3 " PSE. J < 33 , 76) , 3- PSET <3 

2,74) ,3=PSET(32, 125), 3:PSET (33, 126), 3. P u 

^ 3 PSeÍ(33!í 2 6),3 S PSET(32 124) ,3:PSET<3 
3 1 76 > , 3 = P SET < 32 , 1 75 ) , 3 s P SEI < Sc. , 1 74 > , 3 - í 
SET <65 , 29 ) , 3 s P SET ( 65 , 69 ) , 3 s P SET C 65 , i 1 9 > , 

3= PSET <65, 169) ,3 
/y0 F ORE •-= 1TO10STEP3 
800 CIRCLE < 200 , 30 > ,E,7, , ,5 


I 


SI 


1 



810 CIRCLE < 200 , 70 ) , E , 8 , , ,5 
820 CIRCLE <200, 30) r E,ó, , ,5 
830 CIRCLE (200, Í20),E,11,,,5 
840 C I R CLE < 200 ,170), E, 12,, ,5 
850 NEXTE 

860 FORC-200TO2Í OiPSE l < G ,29 > , i :PSET< G , 30 

) , 2 sPSET <G,3i ) , 8: PSET <G, 16?) , ií sPSET ((3, 1 

70) ,Í2=PSET( 8,1/1) , i 0 : PSFT <G , 69 > , Í3:PSET 

< G , 70 > , iSaPSCT <G , 71 ) , 5 : PSET <G, i i 9 ) ,6:PSE 

I ( G , 120 ) , í :PSET ( G , 121 ) ,ilsNEXTG 

070 FORB-3iTO45:PSET<210,B> sNEXTB 

880 FORB=70TO85 : PSET <210, B>: NEXTB 

B90 FORB=120TO135: PSET < 210 , B ) : NEXTB 

900 F0RB=i70T0185 sPSET <210, B) : NEXTB 

910 FORK=205TO215 : PSET <l< , 45) sPSET < K , 85 > : 

PSET <K , 135 ) s PSET < K , 185 ) : NEXTK 

920 CIRCLE < 200 ,13), 4,7,, ,2 

930 CIRCLE < 200, 53) ,4,8, , ,2 

940 CIRCLE<200, 103) ,4,11, , ,2 

950 CIRCLE< 200 ,153), 4, 12,, ,2 

960 C~INT < RND < TIME>*4>+i 

970 IFC=1 THFNF0RS=iTO3 ! CIRCLE ( 200 , 13) ,S, 

7, , ,2-“NEXTS 

980 IFC=2THENFORS=iTO3sCIRCLE<200,53) ,S, 
8, . ,2:NEXTS 


990 I FC-3T i-IENF0RS=iT03 : CIRCLE ( 200 , 103 > , S 
, 11, , , 2 ■ NEXTS 

® ! 1000 IFC= s 4THENr0RS=íT03s CIRCLE <200, 153) , 
S, 12, , ,2:NEXTS 
1010 SM--SM+1 
1020 CS-ZNKEYfi 

i 030 I FCl-~"7"T HENPRE5ET ( 33 , 36 ) : PSET < 32 , 3 
6 ) , 3 : F OR U=6 / 1 0 1 y/ : PSET ( D , 30 ) , 3 : PRESET ( D™ 
1,30) :NEXTDsPRESET<32,36>sPSET<33,36) ,3s 
IFC=lTHENP=P+5sF0RXD=ÍT02: CIRCLE <200,13) 
, XD , 15 , , , 2 s NEXTXD:BEEP s GOT O960ELSEM==M+ 1 
1040 l'FC5-"4 /, THENPRESET (33,76) *P5ET <32,7 
6) , 3 * F0RD"67T0 i 97 : PSET ( D, 70 ) , 3 ■ PRESET ( D— 
*j 1,70) : NFXTD : PRESET (32,76) :PSET<33,76) ,35 
♦ j 3FC=2THENP=P+5: FORXF=l T 02: CIRCLE ( 200,53 ) 
«| , XF ,15,, , 2 ! NEXTXT sBCEP s COTO960EL5EM“=M+1 
i 1050 IFC9>= "i"THENPRESET <33, 126) 5 PSET (32, 
í 126) ,3:F0RD=67T0197:PSETCD, 120) ,3sPRESEI 
*i <ü 1,120): NEXTD : PRESET ( 32, í 2ó ) s PSET (33,1 
« i 2á ) , 3 : IFC=3THENP=P +5 : FOR XB = Í T02 : Cl RCLE (2 
. Í 00,103) , XB , 1 5 , , ,2:NLX1XB:BEEPSZ=Z+1 SGOTO 
! 9Ó0ELSEM-M+1 

1060 IFC4="0 // THENPRESET(33 r 176):PSET<32, 
176) ,3SF0RÜ=Ó/T0Í 97:PSFT(D, 1 70 ) , 3 : PRESET 
<D-i,i70) : NEXTD : PRESET C32, 176) «P5ET (33, 1 
76 ) , 3 : 1 FC= : 4THENP”P + 5 s F0RXC^iT02: S=0 s CIRC 
Lt<200, 153) ,XC, 15, , , 2: NFXTXC : BFEP : Z=Z+1. : 
GOTO9Ó0ELSEH=M+1 
1070 JFSM- >X3+400THENGOTOÍ 170 
1080 IFM=>4THFNG0T01 170 
1090 REh 
1100 GOTO! 010 

1110 F0RSD=iT02 : CIRCLE (200 , 13) ,SD, 15 


«■ 

«■ 

♦ 


«■ : 
• i 

i 

f 

tf* • 


* 


7 7 


,2 


: NEXTSD 

1120 F0RVT=iT02: CIRCLE (20O, 53) , VT, 15, 
SNEXTVT 

1130 F0RCD=1 I 02 : CIRCLE ( 200 ,103) , CD , í 5 


r,2 


7 7 7 


2 : 


NEXTCÜ 


1140 F0RSB=ÍT02: CIRCLE (200, 153) , SB 


15,,, 


:> - 


SNEXTSB 


1150 GOTO 9 60 
í í 60 REM 
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1.230 
í 240 


RI) (222) ; 


lí 70 SCREEN0 

1 5 00 IFM=4THENZ6=Z6-* 1 :|_OCATE10, 5: PR INT"e 
rrou muito": FORG^í T 02000 SNEX TGí EL SELO DAT 
E10 r i5:PRINT"acsbou o tempo": FORH--1TO200 
0 : NEX I H : GOTO 1200 
1190 I FZó= > 3THENGOTO 3170 

1200 I 0CATE15,lC:PRINT ,/ por»tos"fPL+P+FM 
1210 REM 
1.220 SCREENô, 0 

1.230 L0CATE1 4 , 2 : PR INI "PAU DE SEBO" 

1240 L OC A TE5 , 9 s PR I NTCHR 3» ( í 98 ) p SP C < 1 4 ) ;CH 
R3) ( 222 ) ; " " íCHRÍ ( 198) ; SPC< 1 2 ) ; CHR9S ( 222 ) 

1250 L0CATE5,8 :PRINTCHR®( 198 ) PIPOC 
A " ; CHR 3. ( 222 ) ; " " pCHRíí 198) ; "TIRO AO '* 

AL0O" ; CHR4 < 222 ) 

1260 L0CATE5 , 7 : PR INTCHR9) ( 215 > ; SIR INGí ( í 4 
r 195) ;CHRf(215) " ? CHR t ( 215 ) ?STRING4(1 
2, 195) 5 CHR 4 ( 2 15 ) 

1270 L0LATE5, í 0 : PR TNTRTR INGS ( 32 , 223 ) ^ 

1200 L0CATE5 , 18sPR INTSTR INGí ( 32 , 223 ) 

1290 l 0r:ATE5 r 15:PRINTSTRING9i(32,223) 

1300 L.OCATE5,20: PRINTS1 R1N8$(2,215) jCHRÇfc 
(219) |STRING9><2,2í5> 

1310 P OR T=5T0i9 s L0CATE7 , T : P R I NTCHR % ( 2 1 9 ) 

: NI..XTT r 

1320 FORG“10TO17:LOCATE5,G:PRINTCHR9i(219 
) : NEXTG 

1330 FORG- 10TOÍ 7 s L0CATE23 , Cí : PR INTCHR4 < 21 
9) : NEXTG 

1340 F ORG—Í 0TOÍ 7 :|_OCATE20,G:PRINTCHR3j<21 ^ 

9) : NEXTG 

1350 FORG-Í0TOÍ7:LOCATE36,G:PRINTCHR3><?1 * 
9 ) : NEXTG 

1360 FORD--1TO1000: NEXTG * 

1370 REST OREI 440 : SCREEN2 , 2 „ 

1380 IFeR=52THENA7í="":S4i="":B3i="":P1i=" 

" : z !-<&="" í W : ES~"" : |< %■="" :G$-"" : Oíli 

" " Z Lü- " " 

1390 FORT—iTOÍ 4 
1400 READA75 

1410 S4*=S4S+CHRÍ(VAL("&b"+A71)> ~ 

1420 NEXTT 
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í 430 SP R 3.' TO* ( 4 )™S4S> 

1440 DATA 0001000,00.11400,0144140 
i , 0111110,11 11 4 4 í, 1144144,1111444 
1 , 0111110 , 0011100 , 0011100,0011100 


j 1 , 4 111111,4 1 1 .1 411,1411111 
® • 1450 i ORT=.1TOÍ6 
« s i 4.460 READB$ 

©j 1470 P9i==P$ + CHR9KVAL<"Sb"-*B$>> 
i 4480 NEXTT 
I 4 490 SP R I TE5i < 2 > =P 9i 
®\ 1500 DATA lííilíi , 4111114 ,1111141 
to i 1,1414111,1 ií llií.ííiíílí, íiílí íí 

. i 1 , 4 1 1 í í 1 i , 4 1 4 í í 1 1 , 1 1 1 1 1 1 1 , 0 1 1 1 1 1 0 


1540 FOR 0=11044 


* í 1520 R EA DF 1 

«> i 4530 X9i==X$ + CHRÍ<0AL.<''&b"+F<li> > 

! 4540 NEXTV 
S 4 550 SP R ITE9i (3 ) = X9> 

1560 DATA 0000000,0000001,0000041 



0 , 00 . 1 . 1 100 , 001 4 4 00 , 0001 110,00001 11 
1 , 0000001,0000001 
1570 POR 1 = 1 1011 
1580 READin 


1590 E"lj = E.'* + CHR3i(0AL( /, «b" + W!).) ) 


I 1600 NEXTj: 

* 1610 SPR ITE3> < 4 > =Ei 
® I 4 620 DATA 0000000,4 000000,1400000 
to ; 0 , 00.1 1 1 00 , 000 4 í 1 0 , 0004 110,0044400 
i 0,4.400000,1000000 
9 j 4630 FORI = iTOifJ 
1640 READGSi 

to\ 1650 K 4=K 9Í-+CHR 3> ( OAL ( /, &b" + G4 ) ) 


i 1660 NEXTT 
j 4.670 SP R I TE9> < 6 ) =K 9> 

® 1680 DATA 1000000,4400000,1110000 

to - 0,01 4 4100,004 4110,0011 110,001 4 100 
; 0,1110000,1100000,1100000, 1.1.10000 
! 1690 F0RR=ÍTO43 
4.700 READ09Í 

to \ 174.0 L.$=L$+CHR$ ( OAL <"&b"+09i ) ) 
í 4720 NEXTR 
! 1730 SPR I TE9> ( 9 ) = L9> 


,14 1111 . 
, 4 1 4444 
, 1 1 1 . 4 1 . 1 . 


, í 4 4. í í í 
, 4 4 4144 


,0004 4 4 
, 000001 . 


,041100 
, 11.4400 


, 411400 
, 4 44400 
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1740 DATA 000001 , 00001 í , 00CÍ 1 1 ,001 í i j , 0i 

1110,011í00 r 011100,0Ciíí 1 ,000111 ,0000.1 i 

000011 , 00001 i , 00011 j 

1/Ü0 LINE ( 127 , 5 ) - ( 137 , 8 > , 4 , BF' 

1760 LINE( 129, 1 0 ) - ( 135 , 1 60 > , 10, BF 
1770 LI NE C 1 32, 5)- < 133, 8 > , 0,DF 
L. INE ( 122 ,ó)-(i27,7>,íi,BF 
LINE(137,6>-( 142,7) , í i , BF 
LINEC110, 160 >-(150,160), 6, BF 
CIRCLE<Í20,Ó> ,2,6 
CIRCLE(144,6),2,6 
Y~0:IFSTRIG( AM )=0 IHENGOTO 


1850 


< 83 0 EL SE G 


'V 


GO 


02220 


1780 
1790 
1800 
1810 
1820 
1830 
OTO 

1840 OSTICK(AM) 

1850 IFY >**i 15THENPLAY"CDEFGAB 
1860 Y=Y+X6 
1070 U = U + 1 

1880 I FU= > X5+400THENGOT 0 2270 
1890 IFY+14K “Í30THENI4=Í7 SGOTO2270 
1900 PUTSPR ITE0, <128, 116-Y) , í , i 
1910 PUTSPRITEi , ( Í28 r i 30-Y) ,4,2 
1920 PUTSPRITE3, <Í21,Í22-Y) ,4,3 
1930 PUTSPR ITE4 ,(135, 122-Y ) , 4 , 4 
1940 PUTSPRITE5,(135,í4i-Y) ,4,6 
1950 PUTSPR ITE6, (121 ,141 Y),4,9 
1960 lFC=7THENY-Y+5 ! G=i :GOTO 214C 
1970 IFU=X5-*-300THENFOR T~1TO10:EFEP sNFXTT 
1960 GOTO 1 B40 
1990 D~STICK < AH ) 

2000 IFü=X5+300THENFORT=1TO10:BEEP:NEXTT 
2010 IFY= > í 15THENPLAY"CL)EFGAB" SGOTO2220 
j 2020 Y=Y+X6 
! 2030 U=U+1 


! 




2040 
2050 

2060 PUTSPR ITE0, < 1 28 , i 1 6-Y ) , 1 , 1 


IFU=>X5i400THENGOTO 2270 

IFY + i4í< = 130THENI4 = 17 =GOTO2270 


2070 
2080 
2090 
2100 
2110 
2120 


PUTSPRITEI, (128,130- Y) r 4, 2 
PUTSPR ITE3, (121 , 122-Y) ,4,3 
PUTSPR ITE4,( 135, 122-Y) ,4,4 
PUTSPR ITE5, ( 135 , 141— Y >., 4,6 
PUTSPR ITEó, ( 121 , 14Í— Y ) ,4,9 
IFD=3THENY=Y+5:G==2:G0T0 2140 


9G 



? 1.30 GOTO í 990 

2140 PUTSPRITF0 r ( í 28, 1 Í6-Y) ,1,1 
2150 P UTSPR I TE 1 , ( 128 , í 30-Y > , 4 ,2 
2160 P UTSPR I TE3 , < Í.2Í ,122-Y) ,4,3 
2170 P UTSPR ITE4, < 135,i22-Y> ,4,4 
2180 P UTSPR ITE5 , < 135 ,141— Y> ,4,6 
21 90 P UTSPR I TE6 , ( 1 21 , 1 4 1- Y ) , 4 , 7 
2200 IFG=2THENG0'J0 1840 
2210 I F G = í T H E N G OT 0 1990 
2220 HU=400-U 
2230 SCREEN0 , 0 
2240 PU= 100-11 

2250 L0CATE15, 10: PRINT"PONTOS" 

H 

2260 F0RG = iTOÍ 000 s NEXTG : GOTO 23 


2230 SCREEN0 , 0 
2240 PU=i 00-U 

2250 L0CATE15, 10: PRINT"FONTOS" /PL+P+HU+F 
H 

2260 F0RG = iTOÍ 000 s NEXTG : GOTO 2330 
2270 SCREEN0 
2280 SCREEN0 
2290 SCREEN0 

2300 Z6==Z6»i :L0CATE15, 10 :PR INT"PERL)LU UM 
A VIDA" 

231C IFZ6= >3THENGOTO 3170 

2320 FORGB-i TO2000 sNEXTGB ! GOTO 2330 

2330 REM 

2340 SCREEN0 ,0 






lo.j© 

2360 

2370 

2380 


LO C; ATE , .1. : P R TNT CORK IDA 
FORNH-í TOS 00 s NEXTNIT 
SCR EEN2 , 2 : COLOR 1,1 5,7 
I F E I ::: 2 3 T I I E N M Y 1B - 01 % m " ' 


DE SACOS" 


SF4$="" i! B 7 Eli 


Í 2390 RE ST ORE 2430 
j 2400 F0RG“íT014 
I 2410 READMYÍ 

I 2 4 2 O V T 5 » V T S + C H R S < V AL. ( "« Ei " + M Y Si ) ) 

S 2430 NFXTG 
I 2440 SPRITE«(12)=VTS 

1 2 4 S O DATA 00011100, -00.1.00010, 0100O10j ,.0io 
00001,0 .1 0 1 0001,0 i 001 101 ,001 00 0 1 0,00 0 1. 1 i 0 
0,00011100,00 1 0 0 0 10, 01110001 ,1011000 1,10 
1 10001,10110001 
2460 RESTORE2520 
2470 FORGT ==i.T016 
2480 RE ADF41IÍ 

2 4 90 B7 <t » B7S + C UR Ui < 0 A :... <"«B " + F 4 11 ) > 

2300 NEXTGT 

2510 SPR ITFíli ( .1. 3>-"Ei7'Ji 

2 5 2 0 D A T A 1 0 1 10001,10 i. 1 0001,1,0 1 0100 1 , i. 0 0 
1 0 1 © 1 , .1. 1 1 j. i 1 1 1 , 1 1 1 1 1 1 1 1,111111 1 1 , í 1 1 i 1 1 1 

1 , 1 í 1 1 .1 1 1 1 , 1 1. .1 1 1 1 í í , j. 1 1 1 1 1 1 1 , 1 1, 1 1 1. i i 1 , 1 1 
.1 .1 1 1 1 1 ,111 1 1 111,01 j. 11110,0011 1. 1. 00 

2530 FOR 10-230 TO 233 

2 3 40 I... I N E < 1 0 ,18 0 ) - 0. 0 , 8 4 ) , 1 4 
2550 NEXT 10 

P 5 <40 LIN El ( i , S 3 >-(255,101) , 3 , B F 
2370 LIN EU (1,101) — ( 255 , 1 02 ) , 1 , BF 
2580 RIEM 

2 5 90 LI N E ( 1 , 0 ) - ( 2 5 5 ,15), 7 , Ti F 

2800 i„. i n :: ( i.i ? > - í 2 s : t 371.7, « r 


+ F4Í6 ) > 


3 , BF 
1 ,BF 


2800 L I NE (1,12) - (255, 17), 6, BF 
261 0 L I NF ( 1 , 42 > - ( 255 , 45 > , 6 , BF 
2620 L I NE ( i , 45 > - ( 253 , 8© ) , 10 , BF 
8630 LINE ( 1 , 00 ) - ( 255 , 83 > , 6 , BF 
2640 L li: N E O. , .1. 4 O > - ( 2 5 5 ,140),!, B F 
2650 L I N E < 1 , 1 8 0 > <2 5 5 , 1. 8 0 > , 1 , B F 
2660 FORG“i T0255STEP8 ’ 

2670 CIRCLEtG, 19) ,2,4 
2 6 B 0 C I R C L E < G + 1 , 2 6 > , 2 , i 0 
26 9 0 C I R C I... L ( G - 1 , 3 3 ) , 2 , 2 



2700 
2 7 í <ò 
2720 
2730 
2740 
2750 
27A0 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
204 0 
2850 
2860 
2870 
2000 
2890 
2900 
2910 
2920 
2930 
29 40 
2950 


CIRCLE < G , 39 > ,2,6 
NF.XTU : h 0-0 • H— 0 
IFSTRIG<AM)=0THEN6OTO 2720 
C=STICK ( AM ) 

IFC=7THENN=N+i: JK=3SG0T0 2900 
PU7 SPRITE12 , ( N • í 2 , JK + J. 48 > , 10,12 
PDT RPRI TE1 3 , < Í2+N , JK+157 ) ,4,13 
PUT C;rRITEí4, <H+12,U4Í08) , 1 , 12 
PIJT SPRITE15, < Í2+H ,U+117) ,6,13 
JK-0 
I- t)=FD+i 
H-H-X7 

IFGB = 1THENU— 3 sGB— 133 = G0T 0 2730 
U-0 : GB=i 

IFN- /223THENGCTO3030 
T c : H= > 223THENG0T 03030 
GOTO 2730 
REM 

D“STI CK < AM ) 

XF 0=3 i HENN=N+1 : JK=3 : GOTO 2750 
PUT SPRITEÍ2, <N+Í2, JK+14R) , 10 
PUI SPRITE13, ( Í2+N r JK+157) ,4,13 
PUT SPRITEÍ4, ( H+i2, U+i 08) ,1,12 
PUT SFRITE15, <i2+H,U+ii7> ,6, 13 
JK=:0 
FD-FD+i 


* 


12 


98 


! 



<E» I 




2960 H*H+X7 

2970 I F G B = i T H E N ü - 3 : 6 B = í 3 3 e G 0 T 0 

2980 U--0 : GB = í 

2990 I FN=>223TH£NG0T 03030 

3000 IFH=> 22 3THENG0 T 03030 

30.1.0 GOTO 2880 

3020 GOTO 3020 

8030 FGRT-í TO10O0 sNEXTI 

3040 SCREEN0 r 0 


2880 


® ! 


8030 KM=800-FD 

306 0 L OH A T E i 5 , í O : p R I N T "P ONTOS" ; P L + P + H U+ F 
M + K M -■ F OR G - i T 0 í 000 : NEX TG 
3070 HUMHU + 1 

3030 IFHld-lTHENF M=P +HU+KM + PL * X2 — 1 0 : X3 = - 
30 s X5 ~- í 00 s Xó — i . 3 : X7= . 3 

809O IFHW==2THENFM=Fí'i+p+HU+KM+PI :X2=-20:X 

3=-l 00 : Xfi=-Í í 0 :X6 = ~í .6:X7=. 4 
31.00 11- HW=3THENFM-FM+FM+P+HU+KM+PL : D 3= FM 
‘ X2= “30 ; X3=~ 1 50 : X5=-i20 : Xó— i . 9 s X7- . 5 
3 í 1 0 I FHU-4THENF H-FM+FM- FM+P +|| U * «M+PL : D 5 
==FiÍ :X2=-40 5 X3=-200 :X5=-130 : X6---2S X7=. 6 

3120 IFHW=5THENFM=FM+FM+FM+FMP+HU+KM+PL : 

D3--FM : X, =“50 : X3=-250: X5=— 200 : X6---2 . 2 1 X 7 
! “ ■ 7 

I 31301 FHW=6THENFM=FM+FM+FM+FN+FMP +HU+KM+ 

I PL s D5=FM s X2—Ó0 : X3—250 : X5=2 1 0 s Xó— 2 . 5 s X 

I /■' ■ 8 

j 3140 IPHW >-7T HENFM=FM+FM+FM+FM+FM+FM+P + H 
S U+KM+PL:D5=FMsX2=-60sX3“--2508X5 - 2 1 0 : X ó = •••• 

i 2 „ 5 : X7= „ 0 

j 3150 01=01+1 sPL=0:SM=0:EO=i : Y=0s A=®s : 

JK=0 : Ff)=0: N=0 :Cí= / '":M=0 sH=0 s F D=0 : PL=0 : p=.- 

0 -'HU-0 : KH=0 : GR = 52 = EI = 23 : X2— 60 : OS=0 : SCRE 
ENcí 

3 í 60 GOTO 130 

81.70 SCREEN0 -L0CATE15 ,5: PR INI "A CABO 


í 


d 

8Í80 PI AY' v MNí0MNí 0MM1MN80H2CDDAMNÍ 0W0MN2 
0MN30MN40f-ÍN50MNó0MK'70MN80CF1N90" 

3190 LOCATE10 r i0:PRINT"pontos"fPL+P+HU+F 

M+KM 
3200 RUN 


100 



COEI HO 

mniuco 


YehMjSung Wilson Fazzio Martins 


COELHO MALUCO 


Neste jogo você controla um coelhinho que de- 
ve chegar a sua casa no topo de uma montanha. No cami- 
nho existem perigosas cobras, lobos e raposas que podem 
devorá-lo se você não tomar cuidado. 

Para atingir seu objetivo, o jogador, com as 
setas do teclado ou com "joystick", deve tazer o coe- 
lho suhir as escadas entre os patamares, pegando, se 
possível, as maçãs, cenouras e tlores que encontrar 
pelo caminho. Ao fazer isso, o jogador ganha uma certa 
quantidade de pontos, que são: 

CENOURA 160 pontos 

FLCR 200 pontos 

MACÃ 3^0 pontos 

Ao se deparar com um predador (cobra, raposa, 
lobo) o coelho pode passar por ele dando um incrível 
salto sobre sua cabeça. Para Isso, basta movimentar o 
coelho na direção do inimigo e pressionar a barra de 
espaços ou o botão do joystick. 

A subida é realmcnte cansativa. Então, o coe- 
lho pode cortar caminho saltando numa gigantesca mola 
que às vezes surge ao lado da tela. Feito isso, ele 
sobe diversos andares rapidamente, facilitando a esca- 
lada. 

Quando um predador pegar o coelho, ele perde 
uma das três vidas, e é jogado do andar que estava. 0 
coelhinho, então, fica caindo até chegar ao chão, c-u 
até o jogador movê-lo em direção ao patamar. 

Quando o coelho chega ã sua casa. o tempo 
restante é adicionado ao placar do jogador. 0 coelho 
então, vitorioso, vai passear no seu jardim de flores. 

DIGITAÇSO 

Este programa foi elaborado totalmente cm 
Linguagem de Máquina, que permite maior rapidez de 
processamento e, consequentemente, maior animação tío 
jogo Por ser muito grande, n programa não foi colocado 
em linhas de DATA, comc alguns outros pr ogr amas_deste 
livro, o que tornaria muito trabalhosa a digitação. 

A melhor maneira que encontramos para você 
digitá-lo foi através de um Monitor Assembler. 

Elaboramos, enfio, um pequeno monitor em BASIC 
de fácil operação, que permite a entrada dos dados em 
hexa-dec ima I e os grava em fita cassete. 


n 


- OPER rtNDO O MONITOR 




Digitar m programa em Assemoly nao é difí- 
cil. é até mais fácil que digitar uir programa em BASiu, 

quando se usa um bon; monitor. M •_ 

Antes de tudo, então, deve-se digitar o Mcni 
tor, que pelo seu tamanha reduzido nio apresenta ne 

nhurr, protle.^ tec|e RUN B o programa lhe per- 

guntará o endereço inicial, isto é. o numero da Pr*- 
pnmcira coluna da parte rin programa onde voce começa- 
rá a digitar. 

Por exemplo.- 


G3A0 
C308 

^ endereços 


31 n F4 GD GB CC AF 21 
00 F1 77 23 77 3F 07 1 E 

parte que deve ser 
di g i tada 


C2 

BB 

soma dos bytes tía 
I i n h a 


Para começar a introduzir o programa em As 
«SRinbly. digite 0300, que é seu inicio. Feito isso n 
programa mostrará na tela n que havia naquele endereço. 
Comece, então, a digitar os dados em hexadecimal (nu 

meros apòs o endereço). nr , mA _ 

Depois de digitada uma linha (de oito nume 

ros). conlira a soma que aparece na tela (numero °a 
0 1 1 ima co I ura ), com a do livro. Se estiver corretv 
passe para próxima linha. Sc a soma nao conferir, ve 
rifique onde ocorreu o erro. vá ale ele com as .eta 

do teclado corrija o 6rro. 

Você não precisa digitar todo o programa num 
dia. Suponhamos que você digite os dados de C30« ate 
ceie b queira desligar o computador para continua de- 
pois. Entãn você deve salvar em fita o que digitou 
Pera isso. tecle ESC e o monitor perguntara o nome do 
programa. endereço inicial, enderço final e de entrada. 
Prepare então o cassete e digite: 

COELHO ( +' ) C300 ( ♦' ) C81 0 ( V ) C300 ( 4 1 ) C200 I 4 ' ) 

IMPORTANTE: O endereço inicial e de entrada, 

para 0 COELHO, é sempre C300. não importando a parte 
do programa que você acabou de digitar. O que varia e 

apenas 0 endereço final. .. .. 

Quando você for continuar a d 1 g 1 taçao . car r e 

gue 0 monitor e. antes de digitar RUN leia da fita a 

parte anterior do COELHO com c comando: 

BLOAD"CAS • " 

Feito isso, execute 0 monitor e este pedirá novamente 

103 


o endereço inicial. Digite então 
parte gravada na fita. que no exemp 
Nn monitor, para voltar a 
reço Iniciar', tecle SELECT. 

Depois de digitada e 
teiro, você já pode jogar e se 
Para isso. voce deve 
da fita com o comando 


último endereça da 
lo era C81 0 . 
pergunta de "Ende- 


gravado o 
divertir. 
carregar o 


programa in- 
programa da 


DLOAD^CAS s " r R 

que além de colocá-lo na memória, já o executa 


& 


rigurc 9.1 - Listsgeu do MONIIülí ASSEMBI -E 
100 RE M 

REM **** MONITOR ASSEMBLER **** 

REM W i 1 son F. Martins 

RfcTM 

KEYOFF sCLEAR 1000 : DEFINT A-7 
DFFFNH4 ( A ) =RIGHT!E ( "0" i HEXS ( a ),?) 
DEFFNI$<A)=R IGHTK "000"+HEXS ( A ) , 4 ) 
CLE : PR INT"* x MONITOR ASSEMBLER **" 
PKINT 

INPUT"Enderr eco In i c i a] " ; E5 

00 E = UALC"SH"+EÍ) sCLS:L — 1 :ML = L 


& 


110 

í 20 

130 

í 40 

150 

1Ó0 

170 

180 

190 


& I P 


210 L-L + i : IF L >23 IHEN L--23 


« 220 


// 


230 


EE=INT ( E/8 > *0 sRRINT FNIÍ(EE);" - 
EE=INT(E/8>*8:FORN=0TO7:PRINT FNH4<P 
S EEK<EE+N>> ; " "f 
240 NEXT ! C=E-EE 
GOSUB 480 
Al. =1 


250 

260 


j 270 LOCATE 7+C«3,L,i 
^ j 280 IS=INKEYS:ir THEN ? 80 

*! 290 I=SI ICK (0) : IF J THEN 420 
*! IF ASC ( IS ) =24 THEN 170 
| 310 IF ASC (JS)=27 THEN 510 

*[ 320 IF ASC ( 15 ) >96 AND ABCÍISX103 THEN I 
#1 »=CHR*(ASC(I#)-32> 

«{ or 7 . 3 > >" 9 " AND I4<"A" OR IS 

* j PRINT IS;:BS(AL)==IS 

i 350 A L = A L - 1 :IF AL>-1 THEN 2B0 
- I 360 B=VAL ( "ÃH"+B9j ( 1 > +BÍ6 <0> ) 



F 


370 POKE E r B 
380 GOSLJB -180 
390 E=E+í 

400 C=C + í s IF C=8 THEN PR INI: GOTO 210 
410 GOTO 2Ó0 

420 IF I =7 THFN C=C-i:F=E-í 
430 IF 1=3 THEN 390 

440 IF 1 = 1 AND L > 0 THEN E=E-8 : L=L-i 
450 TF 1=5 THFN F=E+8 : PR I NT : GOTO 2Í0 
460 IF C<0 THEN IF L>0 THEN C”7*L«L- 


SsL-L-i 
GOTO 210 
C==7 5 L“L.-Í 


j St C=C+i : E=E+í. 

I 470 GOTO 260 

I 480 S=0sEE=INT<E/8)*8:FORN=0TO7:S--=S+PEEI< 
<EE+N)#<N+1 ) 

490 NEXT : 1 OCATF 32 r CRRi IN: PR TNT'" "jFNOT 
| < S > y 

j 500 RETURN 

j 510 CLSs INPUT "Nome do programa ";NSi 
i 520 FOR N=0TO2sREAD X‘F 

1530 PRINT "Endereço "sXSíÜNPUT ES:E<N) = 
S UAL ( "6H"+E$ > 

| 540 NEXT 

í 550 BSAVE "CASs "+N$ r E <0 ) ,E(1),E~(2) 
i 560 RUN 

| 570 DATA i n i c i al , f i r»al ,de entrada 


;Xíy = INPUT E9i:E<NJ== 


igura 


9.2 - Códigos hexadec i*ais da prograia COELHO «ALUCO. 

v A /• t / . I* â i \ a i 


* ! 
i 

C300 

31 

00 

l’4 

Cl) 

C8 

cc 

AF 

21 

C2 

• i 

C308 

00 

V í 

// 

23 

// 

3t 

0/ 

ífc 

tiU 


C310 

BF 

CA) 

93 

00 

CD 

08 

DB 

AF 

E) 4 

V i 

C3Í0 

21 

DA 

F0 

77 

21 

FE 

F0 

77 

56 

$ 

C320 

23 

77 

21 

[>3 

F0 

36 

03 

21 

Dl 

& 

C32B 

FA 

F0 

36 

02 

21 

FB 

F0 

36 

4B 

tf, S 

ca 30 

AS 

IA 

FD 

F 0 

36 

99 

21 

04 

29 

i 

C338 

F0 

7 E 

C6 

01 

27 

77 

CD 

7D 

52 

e ; 

C340 

C*> 

23 

D7 

F0 

36 

38 

21 

06 

49 

$ j 

C348 

F0 

36 

IA 

21 

D5 

F0 

36 

00 

71 

* i 

C350 

CD 

31 

D2 

3A 

D 5 

K0 

FE 

00 

48 


C35H 

C4 

4D 

DB 

3A 

D5 

F0 

FF 

00 

92 

& i 
• 

C360 

20 

C5 

21 

t>3 

Fe 

7E 

3D 

20 

EG 

e i 

C368 

03 

// 

18 

Ü5 

21 

AC 

DD 

22 

55i 

• 

! 

C370 

69 

F 1 

3E 

01 

32 

6B 

Fi 

CD 

84 


\p 

1 C37B 

7E 

DC 

16 

0E 

ÍE 

10 

0E 

0F 

08 

& 

i 0380 

06 

50 

3 EI 

08 

CD 

E7 

03 

16 

F0 

* 

! C38Ü 

0E 

1E 

20 

0E 

0F 

06 

54 

3E 

8 D 

.4-, 

j 0390 

09 

0D 

E7 

03 

3E 

20 

OD 

E.7 

21) 


! 0398 

Di 

3E 

08 

CD 

08 

04 

3E 

09 

53 

& 

j O3A0 

CD 

08 

04 

3E: 

20 

CD 

E7 

Di 

68 

$ 

! C3A8 

CD 

26 

D 7 

00 

FF 

20 

CB 

ED 

46 


| O3B0 

53 

FE 

F0 

2 A 

00 

Kl 

1)7 

ED 

DE 


j C3B8 

52 

D2 

14 

03 

ED 

53 

00 

Fi 

59 

• 

j 0300 

03 

14 

03 

D 5 

05 

4 D 

70 

E6 

03 

$ 

| 0308 

FE 

21 

D2 

r 0 

77 

AF 

47 

ED 

30 


j 031)0 

6F 

57 

50 

CB 

39 

21 

92 

00 

B 4 


| C3D8 

19 

09 

Cl 

Di 

09 

CB 

23 

CB 

AO 

♦ 

1 0300 

23 

CB 

22 

CB 

22 

15 

09 

05 

1 A 


1 03FR 

21 

00 

1B 

CB 

27 

CB 

27 

6F 

AG 


0300 

CD 

DD 

03 

7A 

CD 

4D 

00 

20 

F7 

<p 

C3FB 

7B 

CD 

4D 

00 

2C 

78 

CD 

4D 

A 8 

«■ 

0400 

00 

20 

79 

CD 

4D 

00 

Ei 

09 

E7 

• 

0403 

D9 

21 

00 

18 

CB 

27 

CB 

27 

2 D 

A. 

0410 

6F 

3 EI 

08 

CD 

4D 

00 

D9 

09 

2F 

'i- 

0418 

E5 

C5 

21 

00 

1B 

01 

80 

00 

DF 


0420 

3E 

C8 

CD 

56 

00 

01 

Ei 

09 

82 

* 

0428 

03 

07 

06 

07 

07 

0F 

1B 

ÍF 

71 


0430 

0F : 

13 

1F 

03 

0D 

03 

03 

0F 

7E 

w 

0433 

80 

00 

70 

F 8 

88 

00 

00 

00 

18 

# 

0440 

80 

DE 

FE 

FC 

F 0 

B0 

18 

78 

6 A 

* 

0443 

01 

03 

03 

03 

07 

0F 

1B 

ÍF 

40 

a 

0450 

0F 

03 

ÍF 

13 

07 

00 

00 

03 

41 


0458 

00 

80 

30 

rc 

04 

00 

00 

CB 

40 

• 

0460 

9C 

DC 

DC 

F8 

F0 

DC 

CO 

DO 

22 

$ 

0468 

00 

00 

00 

00 

00 

00 

00 

13 

00 

A 

0470 

18 

2 D 

FF 

7F 

07 

07 

0D 

18 

FB 


0478 

00 

00 

10 

3F 

3E 

30 

10 

0E 

40 

• 

0480 

EE 

FO 

F8 

FO 

AO 

20 

66 

00 

4C 


C488 

00 

00 

00 

00 

00 

00 

08 

18 

F8 

fT< 

0490 

18 

2D 

FF 

7F 

07 

ÍD 

13 

00 

Cl 


0498 

00 

2© 

38 

3E 

1F 

0F 

0F 

0E 

AE 

• 

04 A0 

0E 

FC 

F8 

FC 

FC 

76 

22 

66 

AC 

« 

C4A8 
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LIVROS DA COLEÇÃO HSX JÁ PUBS TCADOS 


APROFUNDANDO- SE NO MSX . . . D . cir 

Livro dedicado ao ieitcr que ia conhece BASIC 
e quer saber todos os detalhes da máqu i na = corro ctavear 
a PPI para utilizar os 3£ Kbytes de RAM escondi dos oe- 
la ROM carne redefinir caracteres, como usar o SOUND, 
cono tirar cópias de tela çráfica na impressora cnmn 
destravar fitas e meis ima grande quantidade de d'cas 
e informações. expl içadas de forma completa e didatica. 
Principais rotinas oo BIOS. Variáveis do Sistema e um 
completo Dl SAS5EMB.tR . 


COLEÇÃO DE PROGRAMAS VOt . I 

Uma coletânea de programas, dedicada aos usu- 
ários principiantes de MS*. Jogos, músicas, desenhos, 
apresentados de maneira simples e didática, com ins- 
trucões de digitação e análise dos programas, _prat i ca- 
mente linha por linha. Sugestões de modificação 2 oi- 
ças imoort3ntes. 


COLEÇÃO DF PROGRAMAS VOL . II 

Um con 1 unto complete de programas, com roti- 
nas em BASIC e ern Linguagem de Máquina. Jogos d6_açao. 
jogos inteligentes, programas didáticos de quimma, 
física, matemática, geegrafia. biologia etc. Progra- 
mas profissionais de estatística c matematica f;nan 
np.ira. Programas utilitárias para ueu da impressora, 
gravado- cassete, etc. Para os programadores principi- 
antes a montagem de um jogo de ação ( . SCA i JEGUE, uma 
caricatura do SKY JAGUAR l passu a passo, com todas as 
implementações j ust t f i c.adss e explicadas de maneira 
extr erramente didática. 


JOGOS CE HAB11 IDADE PAPA KSX . „ . 

Coletânea de jogos de açao-intel igencia de 
nivel profissional, usando sempre que necessário os 
recursos da Linguagem de Máquina. Os 1 e 1 * "til 
podem usar o Dl SASSEMBLEP do APROFJNP ANDO-SE NO MS* 
para estucar as rotinas em linguagem dc maquina. 

L maneira mais econômica e útil para adquirir 
SOFTWARE de alta qualidade. 


LINGUAGEM BASIC MSX 

Uma verdadeira enciclopédia de BASIC onde to- 
dos os comandos e instruções sio listados em orderr al- 
bética Para cada comando I dada a expiicaçao do que 
ele faz, sua sintaxe e um exemplo elucidativo. Olrade 
consulta i nd i spersá ve I para o programader BASIC-MSX 




LIVROS Eh FASE DE ELABORAÇÃO (no prelo) 


Alem doe títulos nd Içados, durante o ano de 
1986 a COLEÇÃO MSX da EDITORA ALEPH será enriquecida 
por muitas outros versando, entre outros assuntos, so- 
bre: 

L INGUAGEM DE MÁQUINA 
PROGRAMAÇÃO AVANÇADA 
U50 DO DISK DRIVE 
PROGRAMAS DE ENGENHARIA 
PROCESSADOR DE TEXTOS 
PLANILHA DE CÁLCULOS 
BANCO DE DACOC 
L I N3UAGEM l OGO 
BASIC AVANÇADO 

Para se manter sempra atual i 2 ado sobre nosços 
lançamentos c receber GRA~UI TAMENTE nosso boletim ir 
formativo com dicas sobre o MSX. preencha o cupom r 
envie-o (ou a uma còpi3 de e) para. 

ALEPH Pub ! i cações e 
A3ses3oria Pecagógicc Ltda 
Ca i xa Postal .- B0707 
CEP: 01498 
São Paulo - SP 


NOME: 

END . : 

BAIRRO; CEP: 

CIDADE: U.F: 


^ 0 texto desta livro foi composto numa impres- 
sora MON CA PLUS da ELEBRA. utilizando caracteres re 
sidentfis e fontes alternativas desenvolvidas pela ELE- 
BRA. As amostras de tela foram obtidas co I ocanco-sc a 
MÕNICA no modo gráfico e utilizando-se rotinas de có- 
pia para MSX desenvolvidas pala equipe de programação 
da ALEPH. pub I içadas nos livros APROFUNDANDO-SE NO MSX. 
COLEÇÍO DE PROGRAMAS PARA MSX VGL. II e PROGRAMAS AO 
AVANÇADA NO MSX. 


elebra =_ informática 


Editora 

i^leph 



Não há dúvida due dchtê 
cionais, os MSX sãolos t/ue pe 
e sonoros mais poderosos. A 
comandos e funções do fan) 
nam a programação de jogos 
Neste livro o leitor encoú 
não perdem em ndda para 6 
profissionais: ASTEROID, Pi 
Encontrará tÀmbém fan 
gència, como ALCATRAZ, on, 


os micros de 8 bits na- 
suem recursos gráficos 
ados a eles, os demais 
is tico BASIC MSX tor- 
■x trema mente simples, 
rará Jogos de ação que 


melhores video-games 
\-MAN INDY 555, etc. 
titicos jogos de inteli- 
ytoda astúcia e inteli- 
'fjá escapar de um pre- 
'AOtno o ESTRADA DE 
ofnte raciocínio e ha- 


m ’ se mostrou im- 
o uso de rotinas em 
dificultar em nada 
«s rotinas para ve- 
lo proprio BASIC, 




AP Editora 

Kleph 



